j'ai du mal avec cette procedure :


function TALISAPIRequest.ReadClient(var Buffer; Count: Integer): Integer;
begin
Result := Count;
InitContentStream;
if not ECB.ReadClient(ECB.ConnID, @Buffer, DWORD(Result)) then begin
Result := -1;
FMoreDataAvailableOnReadClient := False;
end
else begin
FcontentStream.Position := FcontentStream.Size;
FContentStream.Write(Buffer, Result);
FMoreDataAvailableOnReadClient := FcontentStream.Size < ContentLength;
end;
end;

=> FContentStream.Write(Buffer, Result); me fournir un mauvais resultat !

comment faire ici avec le plus d'optimization possible ?