Процедура обработки OnClientRead

← →
balepa © (2006-03-28 10:45) [0]

Не могу понять как написать процедуру обработки для Получения пришедших данных плз небольшой кодик или направьте куда-нибудь (TServerSocket,D7,Win98)

← →
Сергей М. © (2006-03-28 10:53) [1]

Примерно так :

var
Len: Integer;
Buf: Pointer;
..

Len := Socket.ReseiveLength;
ShowMessage("Ожидается " + IntToStr(Len) + " байт");
GetMem(Buf, Len);
try
Len := Socket.ReceiveBuf(Buf^, Len);
ShowMessage("Фактически принято " + IntToStr(Len) + " байт");
finally
Freemem(Buf);
end;

← →
balepa © (2006-03-28 11:05) [2]

Спасибо конечно, но как мне описать процедуру
procedure ?.ClientRead(??????)

← →
balepa © (2006-03-28 11:14) [3]

var ... ClientRead: TSocketNotifyEvent; implementation ? ClientRead(???????); var Len: Integer; Buf: Pointer; begin .. Len := Socket.ReseiveLength; ShowMessage("Ожидается " + IntToStr(Len) + " байт"); GetMem(Buf, Len); try Len := Socket.ReceiveBuf(Buf^, Len); ShowMessage("Фактически принято " + IntToStr(Len) + " байт"); finally Freemem(Buf); end; procedure TForm1.FormCreate(Sender: TObject); begin TimeL.Caption:= DateTimeToStr(Now); TimeL.Left:= (Form1.Width div 2)-(TimeL.Width div 2); QueryWork:= 0; ServerSocket.Port:= 5000; ................................................ ServerSocket.OnClientRead:= ClientRead; ServerSocket.Active:= True; end;

> как мне описать процедуру

Эта процера д.б. описана не как регулярная, а как метод любого класса, например, класса формы.

interface

TForm1 = class(TForm)
..
procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
..
end;

implementation

..

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
..
end;

Процедура обработки OnClientRead Найти похожие ветки