Entwickler-Ecke :: Thema anzeigen - Dateien empfangen mit Indy10

hibbert - Di 14.02.06 21:27
Titel: Dateien empfangen mit Indy10

Hi,
da bin ich wieder, und noch immer habe ich Probleme mit Indy10 :cry:
Ich habe bereits gefragt, wie ich mit Indy10 Dateien Senden [http://www.delphi-forum.de/viewtopic.php?t=55931] kann, weil es anders ist als bei Indy9.

Nun ist leider auch das Empfangen der Dateien mit Indy10 anders als mit Indy9 :cry:
Mit Indy9 geht es so:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  fs: TFileStream;
  SizeOfIncomingStream: integer;
begin
  fs := TFileStream.Create('datei.endung', fmCreate or fmShareExclusive);
  with AThread.Connection do
    try
      SizeOfIncomingStream := ReadInteger; //Größe des Streams empfangen
      ReadStream(fs, SizeOfIncomingStream); //und übergeben
    finally
      // Disconnect;
      fs.Free;
    end;
end;

Ich habe schon heruasgefunden, dass man idcontext mit in die Uses-Klausel aufnehmen muss, doch jetzt stecke ich fest:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  fs: TFileStream;
  SizeOfIncomingStream: integer;
begin
  fs := TFileStream.Create('friend.jpg', fmCreate or fmShareExclusive);
  with AContext.Connection do
    try
      SizeOfIncomingStream := IOHandler.ReadInteger; //Größe des Streams empfangen
      IOHandler.ReadStream(fs, SizeOfIncomingStream); //und übergeben
    finally
      // Disconnect;
      fs.Free;
    end;
end;

Kann mir da evtl einer weiterhelfen ?

thx hibbert

UGrohne - Di 14.02.06 23:51

Scheint wieder wie bei dem anderen Thema zu sein, Du brauchst einen TIdStreamVCL:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  fs: TFileStream;
  stream: TIdStreamVCL;
  SizeOfIncomingStream: integer;
begin
  fs := TFileStream.Create('friend.jpg', fmCreate or fmShareExclusive);
  stream := TIdStreamVCL.Create(fs);
  with AContext.Connection do
    try
      SizeOfIncomingStream := IOHandler.ReadInteger; //Größe des Streams empfangen
      IOHandler.ReadStream(stream, SizeOfIncomingStream); //und übergeben
    finally
      // Disconnect;
      fs.Free;
    end;
end;

Würd gern wissen, obs funktioniert hat, weil ich hab noch nie Dateien mit Indy verschickt *g*.

hibbert - Mi 15.02.06 23:59

Danke, ich werd es mal versuchen... und berichten was passiert is :wink:

UGrohne - Do 16.02.06 00:07

Schau mal unter Tools -> Umgebungsoptionen -> Bibliothek ob der Pfad zu Deiner Installation in einem der Pfade (am besten Bibliothekspfad) drinsteht. Wenn nicht, dann füge ihn hinzu und probiers nochmal.

BTW: Ich versuche solche Installer für Komponenten genau aus solchen Gründen zu vermeiden. Von Hand funktioniert dann doch meistens besser ;-)

hibbert - Do 16.02.06 00:11

jupp :wink:

ich habe das prob gelöst, indem ich den Installer nochmal ausgeführt habe und ein anderes Verzeichnis angegeben habe, funktioniert diesmal allerdings :D

Also ich bin dann mal testen... :)

hibbert - Do 16.02.06 00:18

hibbert hat folgendes geschrieben:

ich habe das prob gelöst, indem ich den Installer nochmal ausgeführt habe und ein anderes Verzeichnis angegeben habe, funktioniert diesmal allerdings :D

Verdammt, es funktioniert schon wieder nicht !! :evil:
Die Indy Komponenten in der Uses-Klausel werden unterstrichen, warum, diesmal hab ich nun wirklich nichts geändert...

hibbert

UGrohne - Do 16.02.06 00:32

hibbert hat folgendes geschrieben:

Verdammt, es funktioniert schon wieder nicht !! :evil:
Die Indy Komponenten in der Uses-Klausel werden unterstrichen, warum, diesmal hab ich nun wirklich nichts geändert...

Siehe meinen Tipp oben.

hibbert - Do 16.02.06 01:01

Die waren vorher drin, dann hab ich Delphi geschlossen, dann ging es nicht mehr, und es lag wirklich daran, dass der Pfad nicht mehr eingetragen war komisch :?

Naja ich werde es dann morgen testen... (hoffentlich)

hibbert

hibbert - Do 16.02.06 14:20

Ich liebe es wenn man früher schluss bekommt, da konnte ich schon wunderbar testen und ich muss sagen, es funzt so wie es soll, die Testdatei kam vollständig an :D

thx hibbert