Hallo Zusammen,
ich habe ein paar ShowMessages eingebaut, mit dem Ergebnis, dass es dann ohne Fehler funktioniert...
Delphi-Quellcode:
function TDBService.Properties_Select: TStream;
var MxSQL: TDB_Modul;
LStream: TMemoryStream;
begin
LStream := TMemoryStream.Create;
Try
DB_Modul.Get_Properties(LStream);
ShowMessage('LStream.Size: '+IntToStr(LStream.Size));//Ich brauche diese Showmessage
Result:= LStream;
ShowMessage('Result.Size: '+IntToStr(Result.Size));//und dieses, sonst kommt der Fehler
Finally
MxSQL.Free;
End;
end;
Wenn ich ein Sleep einbaue, kommt der Fehler trotzdem.
Mit diesen ShowMessages funktioniert es auch, wenn ich diese blitzschnell wieder schließe, aber ich habe es noch nicht geschafft, dass es ohne funktioniert.
Das ist natürlich keine Lösung. Hat jemand einen Tip, wie ich das sauber prüfen kann.
Die Stream-Größe wird immer mit ca. 9000 angegeben...
Vielen Dank
Patrick