Forum: Netzwerke
Delphi
by OrallY,
17. Sep 2003
Danke, Stevie, du hast mich auf die Idee gebracht. Mir ist gerade wieder ein Parameter von WriteStream eingefallen der das, was du gemacht hast, von selbst erledigt. Und zwar AWriteByteCount. Wenn dieser true ist, wird die Größe des Streams nämlich automatisch mit WriteInteger (mal nebenbei, WriteInteger hättest du auch verwenden können :chat: :angle2: ) verschickt. Nun muss man nur noch vor der...
Forum: Netzwerke
Delphi
by OrallY,
14. Sep 2003
Ich hab jetzt mal ein Beispiel zusammengeackt, doch zu meinem Erstaunen funktioniert es nicht :?. Ich bekomme bei der ReadStream-Methode einen EReadError "Stream read error". Kann jetzt mir einer weiterhelfen? :|
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
if not OpenDialog1.Execute then exit;
with IdTCPClient1 do
begin
fs :=...