FTP-Client mit WinInet (ohne Indy, FastNet oder sonstige)

[shmia]

Im Anhang befindet sich ein Beispiel für einen einfachen FTP-Client.
Es werden keine Komponenten wie z.B. Indy, FastNet oder ICS benötigt. :hi:
Sondern es werden direkt die Internetfunktionen der WinInet.DLL benutzt.

[Luckie]

Na da wollen wir uns doch nicht lumpen lassen. :zwinker:

nonVCL-FTP-Client (War nur mal eine "Studie".)

Nachtrag: Ich erbitte eure nachsicht bei dem Code. Heute hätte ich wohl ein paar Dinge anders gemacht.

[CReber]

was hat das jetzt mit dem topic zu tun?

// find's bissl lahm aber soll ja auch nur die technik demonstrieren ;)

[shmia]

Ok, hier kommt das Update zum FTP-Projekt mit bedienbarer Oberfläche.
Die 1. Version war sehr chaotisch. :pale:
PS: könnte man die 1. Version nicht entsorgen; ich möchte die DP nicht zumüllen.

[freak1985]

is zwar schon seehr alt der thread, aber ich greife ihn nochmal auf ;)

kann es sein, dass man mit diesem TInetFTP nur auf FTP's mit Port 21 zugreifen kann?

habe keine Eigenschaft, die sich Port oder ähnliches nennt gefunden.


oder macht man das irgendwie anders in diesem fall?


MfG

[freak1985]

ah okay.
hab ne lösung gefunden. wenn man im TInetFTP-Objekt eine property einbaut und mit der Connect-Routine verknüpft funktioniert das.
der Port war in der Connect-Routine nur als konstante festgelegt. konnte das nun "verbessern"

also hat sich erledigt :)


Ciao

[stitsch007]

so ist zwar noch mehr zeit vergangen seit dem letzten post, aber das programm ist genial! :hello:
wenn ich groß bin, will ich auch mal so gut programmieren^^

[franzhuber2]

HI danke mal für das geile Teil ich versuche allderings nur eine abfrage ob die connection aufgebaut wurde. wie mach ich das?
also das ne meldung kommt" verbindung hergestell" oder eben nicht?!

muss ich das in eine function schreiben und dann das resultat abfragn?
kann mir das wer zeign wie das geht : /

[shmia]

Zitat:

Zitat von franzhuber2

HI danke mal für das geile Teil ich versuche allderings nur eine abfrage ob die connection aufgebaut wurde. wie mach ich das?
also das ne meldung kommt" verbindung hergestell" oder eben nicht?!

muss ich das in eine function schreiben und dann das resultat abfragn?
kann mir das wer zeign wie das geht : /

Wenn nach dem Aufruf von [TInetFTP].Connect() keine Exception kommt, bist du verbunden.

Delphi-Quellcode:

ftp.Server   := ...;
ftp.User     := ...;
ftp.Password := ...;
StatusBar1.SimpleText := 'connecting...';
ftp.Connect(ChkPassiveFTP.Checked);
StatusBar1.SimpleText := 'connected to '+ftp.Server;

[franzhuber2]

ftp.Connect(ChkPassiveFTP.Checked);
den befehl versteh ich nicht ganz.
das ".connect" is schon fix programmiert aber was wird mit dem wa sin der klammer esteht bwirkt?