TCP/IP Download einer Datei

[MadMax]

Hallo Forum,

Bräuchte einen Kleinen Anstoß für ein Projekt.

Hab eine kleine Grafischeobfläche mit einem Edit Feld und einem Button.
Der Benutzer soll in das Edit Feld eine IP Adresse eingeben durch drücken des Button soll von der Adresse eine Datei geladen werden(Alles Windows 2k Rechner).

Für ein kleiner lösungsansatz währ ihr sehr Dankbar.

[X-Dragon]

Da hab ich gerade erst was gesehen:
[cl]datei+tcp+senden[/cl]

[devnull]

Hi,

hier gibts sogar noch mehr sources:
Internet TCP/IP


devnull

[MadMax]

Ok noch mal da es scheinbar nicht ganz klar ist was ich will.

Also,
keine Daten senden!
Mir ist klar das ich eine anfrage an einen Server Programm schicken kann das mir dann die Datei zuschickt.

Ist das ganze auch ohne diesem Server Programm möglich?

[Tonic1024]

Moin...

Du wirst immer ein programm (also den Server) brauchen, der das für dich tut... Was du willst klingt für mich nach FTP, aber auch der benötigt einen Server.

Wenn es auch UDP sein darf, dann schau mal unter TFTP oder Trivial FTP nach. Gibt ne Indy-Kompo dafür. Klein, schnuckelig und einfach. Leider recht offen und daher unsicher und leider kein TCP.

Bis denne...

[MadMax]

Ok klar das für eine Kommunikationen 2 Seite nötig sind
Ich dachte mir das vielleicht eine Windows 2k Komponente genützt werden kann.


z.B. durch freigeben des Verzeichnis

[X-Dragon]

Zitat von MadMax:

Ok klar das für eine Kommunikationen 2 Seite nötig sind
Ich dachte mir das vielleicht eine Windows 2k Komponente genützt werden kann.


z.B. durch freigeben des Verzeichnis

Wenn du entsprechende Verzeichnisse eingerichtet hast, müßtest du die Dateien ja auch einfach per CopyFile übertragen können, oder wie hast du dan jetzt was vor?

[MadMax]

Werde es mit Indy FTP lösen.

Hab einen Server und einen Client gebastelt.

Wenn ich nun meine Datei mit
IdFTP1.Get(FilePhatname, 'D:\Benutzerftp.dat', false, true);
Downloaden will bekomme ich folgende Fehlermehldung

„CWD“ Anweisung nicht implementiert

Hab den Server nur über die VCL eingebunden!!
Muss ich die einzelnen Funktionen wie „GET“ erst implementieren?

[SirThornberry]

Delphi-Quellcode:

uses URLmon, ShellApi;
[...]
Result := URLDownloadToFile(nil, PChar(was), PChar(wohin), 0, nil) = 0;
[...]

[MadMax]

Ändert leider gar nichts.

Delphi-Quellcode:

function TForm1.Donwload :Boolean;
Var FilePhatname: String;
begin
  FilePhatname := 'D:\ist\BarCodeReader\';
  idFTP1.Host := Edit1.Text;
  idFTP1.Username := 'redsnapper';
  idFTP1.Password := 'redcolor';
  idFTP1.Connect;

  if not IdFTP1.Connected then exit;
  IdFTP1.ChangeDir(FilePhatname);
  URLDownloadToFile(nil, PChar(FilePhatname), PChar('D:\Benutzerftp.dat'), 0, nil);
end;