Ved du hvad ? Jeg har lige fundet ud af at hvis man læser spørgsmålet, er der en pæn chnce for at svare rigtigt. Nå prøv det her :
Sæt et NMFTP og et NMHTTP komponent på en form. Begge finder du under FastNet fanen. Smid også en knap på din form.
Under din private del af din form erklærer du dig en StringList :
type
TForm1 = class(TForm)
.....
private
StringList : TStringList;
public
{ Public declarations }
end;
giv din form et onCreateEvent, og sæt dit FTP komponent op der :
procedure TForm1.FormCreate(Sender: TObject);
begin
NMFTP1.Passive := true;
NMFTP1.UserID :=\'Brugernavn\';
NMFTP1.Password := \'Hemmeligt\';
NMFTP1.Host := \'
ftp.hest.com\'; NMFTP1.Vendor := NMOS_AUTO;
NMFTP1.ParseList := true;
end;
Hust at lave brugernavn, password og host rigtigt op.
Giv din knap en onClick event :
procedure TForm1.Button1Click(Sender: TObject);
begin
NMHTTP1.Get(\'
http://hest.com/files.txt\');
StringList := TStringList.Create;
StringList.Text := NMHTTP1.Body;
NMFTP1.Connect;
end;
nu mangler vi blot at give vores FTP komponent en onConnect event :
procedure TForm1.NMFTP1Connect(Sender: TObject);
var
i : Integer;
begin
for i:= 0 to StringList.Count -1 do
NMFTP1.Download(StringList[i],StringList[i]);
end;
Så er du i luften !
Jens B
http://fotx.net/borrisholt
