Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.138 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: INDY 10 Project, TRECORD im FUNKTIONSAUFRUF ENTFERNEN

  Alt 10. Nov 2011, 13:53
meine Lösung sieht jetzt so aus

Delphi-Quellcode:

     function ReceiveBuffer(AClient: TIdTCPClient; var ABuffer: TBytes):
Boolean;


     function SendBuffer(AClient: TIdTCPClient; ABuffer: TBytes): Boolean;


implementation



function ReceiveBuffer(AClient: TIdTCPClient; var ABuffer: TBytes): Boolean; var
   LSize: LongInt;
begin
   Result := False;
   LSize := AClient.IOHandler.ReadLongInt();
   AClient.IOHandler.ReadBytes(ABuffer, LSize, False);
   Result := True;
end;

function SendBuffer(AClient: TIdTCPClient; ABuffer: TBytes): Boolean; begin
   Result := True;
   try
     AClient.IOHandler.Write(LongInt(Length(ABuffer)));
     AClient.IOHandler.WriteBufferOpen;
     AClient.IOHandler.Write(ABuffer, Length(ABuffer));
     AClient.IOHandler.WriteBufferFlush;
   finally
     AClient.IOHandler.WriteBufferClose;
   end;
   Result := True;
end;

"Out" Kannte ich noch gar nicht, Danke für die Tips !!!!
  Mit Zitat antworten Zitat