TCustomWinSocket.SendStream und TStream.Free;

noNeed 4 aNick · Beiträge: 20

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 · Verfasst: So 11.12.05 22:57

Was meldet er dir denn? eine AccessViolation?

_________________
Programmers never die, they just GOSUB without RETURN

noNeed 4 aNick · Beiträge: 20

Ne EAccessViolation:

Zitat:

'Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000'

Muetze1 · Beiträge: 346

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.

_________________
49 63 68 68 61 62 65 6B 65 69 6E 65 41 68 6E 75 6E 67 21

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme