Funktioniert leider beides nicht.
Was ich merkwürdig finde ist, dass bei:
Delphi-Quellcode:
function TMPConnection.MakeConnectionStream: TMemoryStream;
var
TestStream : TMemoryStream;
TestString : string;
begin
TestStream := TMemoryStream.Create;
Result := TMemoryStream.Create;
TestString := 'TEST';
TestStream.Seek(0,soFromBeginning);
TestStream.Write(TestString, Length(TestString));
Result.Seek(0,soFromBeginning);
Result.Write(TestString, Length(TestString));
end;
TestStream anscheind gefüllt wird, währen Result leer bleibt
