Einzelnen Beitrag anzeigen

cRayZo

Registriert seit: 30. Jul 2007
156 Beiträge
 
Delphi 6 Personal
 

Re: Dateiaustausch zwischen clientsocket und serversocket..^

  Alt 6. Okt 2007, 20:36
okay.. also das mit dem "außerhalb von Onread" erstellen müsste dann so gehen oder wie?

Delphi-Quellcode:
FStream := TFileStream.Create('c:\temp\test.stream.bmp', fmCreate or fmShareDenyWrite);
end;
und im On read soll dann das stehen?

Delphi-Quellcode:
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  iLen: Integer;
  Bfr: Pointer;
begin
  iLen := Socket.ReceiveLength;
  GetMem(Bfr, iLen);
  try
    Socket.ReceiveBuf(Bfr^, iLen);
    FStream.Write(Bfr^, iLen);
  finally
    FreeMem(Bfr);
  end;
end;
das habe ich ich jetzt außerhalb von DP gefunden
  Mit Zitat antworten Zitat