Forum: Netzwerke
Delphi
by paresy,
21. Dez 2004
while FormPos < FormSize do
if fConnectionFormData.Socket.ReceiveLength > 0 then
begin
Len := fConnectionFormData.Socket.ReceiveLength;
GetMem(Data, Len);
ReadSize := fConnectionFormData.Socket.ReceiveBuf(Data^, Len);
Inc(FormPos, ReadSize);
Stream.WriteBuffer(Data^, ReadSize);
FreeMem(Data);
Event(FormTag, FormPos, FormSize);
Forum: Netzwerke
Delphi
by paresy,
20. Dez 2004
senden:
uses Classes, ScktComp;
const BufferSize = 8192;
type
TTSendStream = class(TThread)
private
FSocket: TCustomWinSocket;