Entwickler-Ecke

Internet / Netzwerk - TCustomWinSocket.SendStream und TStream.Free;


noNeed 4 aNick - So 11.12.05 22:49
Titel: TCustomWinSocket.SendStream und TStream.Free;
Nabend zusammen,

ich hab hier folgenden Code:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
procedure TConnectionForm.Button2Click(Sender: TObject);
var fs: TFileStream;
begin
        fs := TFileStream.Create(inFileName.Text, fmOpenRead + fmShareExclusive);
        
        Socket.SendStream(fs);

        fs.Free;
end;


Nun stürzt das Programm immer bei fs.Free ab, mit ner wilden Fehlermeldung...
Wenn ich das fs.Free weglasse, funzt es wunderbar. Aber irgendwie erscheint mir das als nicht gut :)

Also was mach ich falsch?

Thx In Advance
Alex


alias5000 - So 11.12.05 22:57

Was meldet er dir denn? eine AccessViolation?


noNeed 4 aNick - So 11.12.05 23:02

Ne EAccessViolation:
Zitat:

'Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000'


Muetze1 - So 11.12.05 23:03

Ok, dann schau nochmal in die Hilfe und lies dir mal durch was dort zu SendStream() steht: Der Stream wird von SendStream() freigegeben, wenn er komplett gesendet wurde. SendStream() sendet die Daten asynchron im Hintergrund. Mit anderen Worten: wenn SendStream() wieder zurückkehrt vom Aufruf bedeutet das nicht mal ansatzweise, das auch der komplette Streaminhalt versendet wurde.