procedure TForm1.CS1Error(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ShowMessage('Ошибка' + IntToStr(ErrorCode));
ErrorCode :=0;
logs('Ошибка'+ IntToStr(ErrorCode));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
{Тут всяко разное для проги}
Sleep(500);
CS1.Port := StrToInt(LabeledEdit2.text);///Порт
CS1.Address :=LabeledEdit1.text;///IP адрес
CS1.Active :=True;
CS1.Open;
Sleep(100);
CS1.Socket.SendText('$KE,PSW,SET,Jerome'#13#10);///Отправка пароля устройству
end;
procedure TAbstractSocket.Open;
begin
Active := True;
end;
try
CS1.Port := StrToInt(LabeledEdit2.text);///Порт
CS1.Address :=LabeledEdit1.text;///IP адрес
CS1.Open;
except
on E: Exception do
if E is ESocketError then
(E As ESocketError).Message //текст ошибки
//в данном случае можно писать просто E.Message
end;
CS1.Active :=True;
{CS1.Open;
}
TForm1.FormCreate(Sender: TObject)
1-Чтение конфигурации и настроек программы
2-Проверка на повторный запуск программы
Sleep(500);
3-Работа с сетью
logs('Ошибка'+ IntToStr(ErrorCode)) ;
ErrorCode :=0;
ErrorEvent: TErrorEvent
type TErrorEvent = (eeGeneral, eeSend, eeReceive, eeConnect, eeDisconnect, eeAccept, eeLookup)
Case ErrorEvent Of
eeGeneral: ShowMessage('Непонятная ошибка. Скорее всего сбой системы.');
eeSend: ShowMessage('Ошибка при передаче данных.');
eeReceive: ShowMessage('Ошибка при приёме данных.');
eeConnect: ShowMessage('Ошибка при подключении к устройству.');
eeDisconnect: ShowMessage('Ошибка при отключении от устройства.');
eeAccept: ShowMessage('Ошибка получения данных.');
eeLookup: ShowMessage('Ошибка при поиске устройства.');
End;
CS1.Active :=True;
{CS1.Open;
}
logs('Ошибка'+ IntToStr(ErrorCode)) ;
procedure TForm1.logs(str:string);
var in_file: textFile;
FileName,date,time: string;
begin
FileName:='C:\Test\log.txt';
assignFile(in_file, FileName);
if not (FileExists(FileName)) then rewrite(in_file)
else
Append(in_file);
date:=DateToStr(Now());
time:=TimeToStr(Now());
Write(in_file, date);
Write(in_file, chr(9));
Write(in_file, time);
Write(in_file, chr(9));
WriteLn(in_file, str);
closeFile(in_file);
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.