Indy TCP und Write-/ReadStream-Methode

[OrallY]

Hallöchen. Nachdem Meflin in diesem Thread nachgefragt hat, wie man Dateien über TCP und den Indys verschickt, habe ich folgendes Beispiel gepostet. Doch bekomme ich immer bei der ReadStream-Methode einen EReadError ("Stream read error").

Da ich als letztes in den Thread von Meflin gepostet habe und dieser nicht als unbeantwortet gekennzeichnet ist, hab ich jetzt einfach einen neuen Thread aufgemacht, um auf das bis dato ungelöste Problem aufmerksam zu machen.

(Ich war der Ansicht, dass beim alten Thread leicht der Glaube entstehen könnte, dass er beantwortet ist. Und weil ich Meflins Problem lösen will, was nun auch zu meinem geworden ist, hab ich jetzt die Initiative ergriffen. Wenn die Moderatoren anderer Meinung sind, bitte :mrgeen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  fs: TFileStream; 
begin 
  if not OpenDialog1.Execute then exit;  
  with IdTCPClient1 do 
  begin 
    fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite); 
    Connect; 
    try 
      WriteStream(fs); 
    finally 
      Disconnect; 
      fs.Free; 
    end; 
  end; 
end; 

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); 
var 
  fs: TFileStream; 
begin 
  if not SaveDialog1.Execute then exit; 
  fs := TFileStream.Create(SaveDialog1.Filename, fmCreate or fmShareExclusive); 
  with AThread.Connection do 
    try 
      ReadStream(fs); 
    finally 
      Disconnect; 
      fs.Free; 
    end; 
end;

[DataCool]

Hi,

versuch mal in der procedure Button1Click folgendes einzubauen :

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  if not OpenDialog1.Execute then exit; 
  with IdTCPClient1 do
  begin
    fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite);
    try
      Connect;
      if Connected then begin
        try
          // Write Buffer öffnen
          OpenWriteBuffer;
          // Stream in Buffer schreiben
          WriteStream(fs);
          CloseWriteBuffer;
          // Buffer schliessen, Buffer wird dann automatisch abgeschickt
        except // fehlermeldung end;
      end;
    finally
      Disconnect;
      fs.Free;
    end;
  end;
end;

Gruß Data

[OrallY]

Danke, aber hat leider nix geholfen. Es tritt immer noch der selbe Fehler auf .

(Nach Indy-Hilfe modifiziert):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  if not OpenDialog1.Execute then exit;
  with IdTCPClient1 do
  begin
    fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite);
    Connect;
    try
      OpenWriteBuffer;
      try
        WriteStream(fs);
        CloseWriteBuffer;
      except
        CancelWriteBuffer;
        raise;
      end;
    finally
      Disconnect;
      fs.Free;
    end;
  end;
end;

[OrallY]

Lösung hier: http://www.delphipraxis.net/internal...?p=72324#72324

[Christian Seehase]

Moin OrallY,

probier's mal mit fmOpenReadWrite beim FileStream.

Ich hab' an der gleichen Stelle einen MemoryStream, und damit geht's.

[OrallY]

Ich hatte das auch schon mit einem MemoryThread probiert, aber das hat bei mir nicht geklappt .
Eine Lösung des Problems gibts, wenn du dem Link folgst. So funktionierts, auch wenn ich den Grund nicht kenne :