Forum: Netzwerke
Delphi
by Bastler,
4. Aug 2007
So das ganze Rätels hat sich jetz - mit Eurer indirekten Hilfe - gelöst.
An Hand dieses Beitrags habe ich dann etwas rumprobiert und bin zu einem Funktionsfähigen Ergebnis gekommen.
function getfile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;
var
hopen, hconnect: HINTERNET;
begin
hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT,...
Forum: Netzwerke
Delphi
by Bastler,
3. Aug 2007
Hi Leute;
in der CodeLib ist ein ganz netter Code für den Datei Up- und Download (hier).
Könnte mir jemand netter weise die Funktion getfile() schreiben, da ich mich leider nicht mit den Parametern auskenne.
Also qausie das hier:
uses
WinInet
function putfile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;