Привожу код программы, т.к. самостоятельно локализовать ошибку не удалось:
Юнит:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, inifiles, MSI_Common, MSI_Monitor, MSI_Memory, MSI_Machine,
MSI_Display, MSI_SMBIOS, MSI_CPU, MSI_Storage, MSI_Software, MSI_Network,
MSI_MSProduct, MSI_OS, xpman, ScktComp, sSkinProvider, sSkinManager,
ExtCtrls;
type
TForm1 = class(TForm)
MiTeC_Monitor1: TMiTeC_Monitor;
Button1: TButton;
Memo1: TMemo;
MiTeC_Machine1: TMiTeC_Machine;
MiTeC_Memory1: TMiTeC_Memory;
MiTeC_Display1: TMiTeC_Display;
MiTeC_SMBIOS1: TMiTeC_SMBIOS;
MiTeC_CPU1: TMiTeC_CPU;
MiTeC_Storage1: TMiTeC_Storage;
MiTeC_Software1: TMiTeC_Software;
MiTeC_Network1: TMiTeC_Network;
MiTeC_MSProduct1: TMiTeC_MSProduct;
MiTeC_OperatingSystem1: TMiTeC_OperatingSystem;
ClientSocket1: TClientSocket;
Memo2: TMemo;
Edit3: TEdit;
Button3: TButton;
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
Button2: TButton;
TimerConnection: TTimer;
Memo3: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TimerConnectionTimer(Sender: TObject);
procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
comp_name:string;
ini : TIniFile;
implementation
uses MiTeC_WinIOCTL;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var c,i,t:integer;
s:string;
begin
MiTeC_Machine1.RefreshData;
Memo1.Lines.Add('Имя компьютера: '+ MiTeC_Machine1.MachineName);
comp_name:=MiTeC_Machine1.MachineName; //запоминаем имя компа
MiTeC_Network1.RefreshData;
Memo1.Lines.Add('IP: '+MiTeC_Network1.IPAddresses.Text);
//for I := 0 to - 1 do
Memo1.Lines.Add(' ');
MiTeC_Monitor1.RefreshData;
Memo1.Lines.Add('Монитор');
Memo1.Lines.Add( 'Название: '+MiTeC_Monitor1.Monitors[0].DeviceDesription);
Memo1.Lines.Add( 'Производитель: '+MiTeC_Monitor1.Monitors[0].Manufacturer);
Memo1.Lines.Add( 'Модель: '+MiTeC_Monitor1.Monitors[0].Model);
Memo1.Lines.Add( 'Серийный номер: '+MiTeC_Monitor1.Monitors[0].ProductNumber);
Memo1.Lines.Add( 'Имя: '+MiTeC_Monitor1.Monitors[0].Name);
Memo1.Lines.Add( 'EDID v.= '+MiTeC_Monitor1.Monitors[0].EDID_Version);
Memo1.Lines.Add(' ');
Memo1.Lines.Add( 'Оперативная память');
MiTeC_Machine1.RefreshData;
MiTeC_Memory1.RefreshData;
c:=0;
t:=(MiTeC_Memory1.PhysicalTotal div 1024) div 1024;
Memo1.Lines.Add( 'Всего: '+inttostr(t)+' Мб');
with MiTeC_Machine1.SMBIOS do begin
if MemoryDeviceCount>0 then begin
for i:=0 to MemoryDeviceCount-1 do
if (MemoryDevice[i].Size>0) then begin
Memo1.Lines.Add(Format('Слот %d - %d Мб %s',[i,MemoryDevice[i].Size,s]));
end;
end else
for i:=0 to MemoryModuleCount-1 do
if (MemoryModule[i].Size>0) and (c<t) then begin
c:=c+MemoryModule[i].Size;
Memo1.Lines.Add(Format('Слот %d - %d Мб %s',[i,
MemoryModule[i].Size,
GetMemoryTypeStr(MemoryModule[i].Types)]));
end;
end;
Memo1.Lines.Add(' ');
MiTeC_Display1.RefreshData;
Memo1.Lines.Add('Видеокарта: ' + MiTeC_Display1.Adapter +' '+ floattostr(MiTeC_Display1.Memory/1024/1024)+ ' Мб');
Memo1.Lines.Add(' ');
Memo1.Lines.Add('Материнская плата: ' );
MiTeC_SMBIOS1.RefreshData;
Memo1.Lines.Add(MiTeC_SMBIOS1.MainBoardManufacturer+' '+MiTeC_SMBIOS1.MainBoardModel);
//Memo1.Lines.Add('Серийный номер: '+MiTeC_SMBIOS1.MainBoardSerial); //дата
Memo1.Lines.Add(' ' );
Memo1.Lines.Add('Процессор: ' );
MiTeC_CPU1.RefreshData;
Memo1.Lines.Add(MiTeC_CPU1.MarketingName+', S/N: '+MiTeC_CPU1.SerialNumber);
Memo1.Lines.Add(' ' );
Memo1.Lines.Add('HDD: ');
MiTeC_Storage1.RefreshData;
for i:=0 to MiTeC_Storage1.PhysicalCount-1 do
if not(MiTeC_Storage1.Physical[i].Removable) then
if not(MiTeC_Storage1.Physical[i].DeviceType in [FILE_DEVICE_CD_ROM,FILE_DEVICE_DVD, FILE_DEVICE_TAPE,FILE_DEVICE_UNKNOWN]) then
Memo1.Lines.Add(MiTeC_Storage1.Physical[i].Model+' ('+ floattostr(MiTeC_Storage1.Physical[i].Size div 1024 div 1024 div 1024) +' Гб)');
Memo1.Lines.Add(' ');
Memo3.Lines.Add('Программное обеспечение: ');
MiTeC_Software1.RefreshData;
for i:=0 to MiTeC_Software1.Count-1 do
if (MiTeC_Software1.InstallEntry[i].Version<>'') then
Memo3.Lines.Add(MiTeC_Software1.InstallEntry[i].Name+' v.'+MiTeC_Software1.InstallEntry[i].Version )
else Memo3.Lines.Add(MiTeC_Software1.InstallEntry[i].Name);
Memo3.Lines.Add(' ' );
Memo3.Lines.Add('OC: ');
MiTeC_OperatingSystem1.RefreshData;
Memo3.Lines.Add(MiTeC_OperatingSystem1.OSName+' '+MiTeC_OperatingSystem1.OSEdition+' build '+inttostr(MiTeC_OperatingSystem1.BuildNumber));
Memo3.Lines.Add('Дата установки: '+DateToStr(MiTeC_OperatingSystem1.InstallDate));
Memo3.Lines.Add('ID: '+MiTeC_OperatingSystem1.ProductID);
Memo3.Lines.Add('Key: '+MiTeC_OperatingSystem1.ProductKey);
Memo3.Lines.Add(' ' );
Memo3.Lines.Add('ПО Microsoft: ');
MiTeC_MSProduct1.RefreshData;
for I := 0 to MiTeC_MSProduct1.ProductCount-1 do
Memo3.Lines.Add(MiTeC_MSProduct1.Products[i].Name+', ID: '+MiTeC_MSProduct1.Products[i].ProductID+
', Key: '+ MiTeC_MSProduct1.Products[i].ProductKey);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Active:=true;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Insert(0,'Connected');
end;
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Insert(0,'Disconnected');
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
recv_text, s:string;
i:integer;
f:TStringList;
begin
recv_text:=Socket.ReceiveText;
Memo2.Lines.Insert(0,'Message received from SERVER');
Memo2.Lines.Insert(0,'> '+recv_text);
if recv_text=comp_name then
begin
f:=TStringList.Create;
//f.LoadFromFile(Edit1.Text);// Загрузка текстового файла
f.Text:=Memo1.Text+memo3.Text;
// Button1.Click;
ClientSocket1.Socket.SendText(f.Text);
// ClientSocket1.Socket.SendText(Memo3.Text);
end;
f.Free;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if ClientSocket1.Active=true then
ClientSocket1.Socket.SendText(Memo1.Text);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Ini:=TIniFile.Create(GetCurrentDir+'\settings.ini');
ClientSocket1.Host:=ini.ReadString('connection', 'server', 'ALEXNOV');
ClientSocket1.Port:=strtoint(ini.ReadString('connection', 'port', '1025'));
Ini.Free;
Button1.Click;
end;
procedure TForm1.TimerConnectionTimer(Sender: TObject);
begin
if ClientSocket1.Active=false then
try
ClientSocket1.Active:=true;
except
ShowMessage('no connection');
end;
end;
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0; // теперь сообщение об ошибке при отсутствии сервера не будет вываливаться
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Handle,SW_HIDE);
ShowWindow(Application.Handle,SW_HIDE);
end;
end.
Проект:
Код:
program INPC_Client;
uses
Forms, windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var
MutexHandle : THandle;
const
MutexName = 'INPC_Client_appl';
begin
// Пробуем открыть Mutex по имени
MutexHandle := OpenMutex(MUTEX_ALL_ACCESS, false, MutexName);
if MutexHandle <> 0 then begin
// Копия нашего приложения уже запущена - Mutex уже есть
CloseHandle(MutexHandle);
MessageBox(0,'Программа уже была запущена!','INPC Client: Ошибка!', 0);
halt;
end;
// Создание Mutex
MutexHandle := CreateMutex(nil, false, MutexName);
Application.Initialize;
Application.Title := 'INPC Client';
Application.CreateForm(TForm1, Form1);
Application.Run;
// Уничтожаем наш Mutex при завершении приложения
CloseHandle(MutexHandle);
end.
|
13.04.2009, 15:32
причины могут быть разные, установлен маленький его обьём, адресат не отвечает...
Линейный вид
