Arbejder på, at få denne FTP (IdFTP1) til at kører!

tror ikke du skal bruge

idftp1.get('c:\\fil.txt', 'c:\\fil.txt');

men istedet:

idftp1.get('fil.txt', 'c:\\fil.txt');

tja prøv..
ellers er det fordi programmet ikke kan overskrive filen:

deletefile(filnavn); først

Jeppe Johansen
Jeppesoftware@hotmail.com

[Redigeret d. 16/04-04 16:14:43 af Jeppe]

Kode 

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host := 'xxx.xxx.xxx.xxx';
  IdFTP1.User := 'username';
  IdFTP1.Password := 'password';
  IdFTP1.Port := 21;
  IdFTP1.Connect(True);
  if IdFTP1.Connected then
    try
      if FileExists('c:\\Test.txt') then // Hvis filen findes
         DeleteFile('c:\\Test.txt'); // så slet den
      IdFTP1.Get('Test.txt','c:\\Test.txt');
    except
      Showmessage('Der er sket en fejl!');
    end;
  if Fileexists('Test.txt') then
    Memo1.Lines.LoadFromFile('c:\\Test.txt');
  if IdFTP1.Connected then
    IdFTP1.Disconnect;
end;

Prøv noget i stil med flg.

Kode 

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host := 'xxx.xxx.xxx.xxx';
  IdFTP1.User := 'username';
  IdFTP1.Password := 'password';
  IdFTP1.Port := 21;
  IdFTP1.Connect(True);
  if IdFTP1.Connected then
    try
      if FileExists('c:\\Test.txt') then // Hvis filen findes
         DeleteFile('c:\\Test.txt'); // så slet den
      IdFTP1.Get('Test.txt','c:\\Test.txt');
    except
      Showmessage('Der er sket en fejl!');
    end;
  if Fileexists('Test.txt') then
    Memo1.Lines.LoadFromFile('c:\\Test.txt');
  if IdFTP1.Connected then
    IdFTP1.Disconnect;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Prøv noget i stil med flg.

Kode 

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host := 'xxx.xxx.xxx.xxx';
  IdFTP1.User := 'username';
  IdFTP1.Password := 'password';
  IdFTP1.Port := 21;
  IdFTP1.Connect(True);
  if IdFTP1.Connected then
    try
      if FileExists('c:\\Test.txt') then // Hvis filen findes
         DeleteFile('c:\\Test.txt'); // så slet den
      IdFTP1.Get('Test.txt','c:\\Test.txt');
    except
      Showmessage('Der er sket en fejl!');
    end;
  if Fileexists('Test.txt') then
    Memo1.Lines.LoadFromFile('c:\\Test.txt');
  if IdFTP1.Connected then
    IdFTP1.Disconnect;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hej The-Freak
Tak for din kode.

Men for nu fejmeddelsen:Error with message '550'Test.txt' : No Such file.'.

Hvad tror du der går galt?

Med venlig hilsen
Monie Jacobsen

E-mail: mjs at nypost dot dk

Prøv noget i stil med flg.

Kode 

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host := 'xxx.xxx.xxx.xxx';
  IdFTP1.User := 'username';
  IdFTP1.Password := 'password';
  IdFTP1.Port := 21;
  IdFTP1.Connect(True);
  if IdFTP1.Connected then
    try
      if FileExists('c:\\Test.txt') then // Hvis filen findes
         DeleteFile('c:\\Test.txt'); // så slet den
      IdFTP1.Get('Test.txt','c:\\Test.txt');
    except
      Showmessage('Der er sket en fejl!');
    end;
  if Fileexists('Test.txt') then
    Memo1.Lines.LoadFromFile('c:\\Test.txt');
  if IdFTP1.Connected then
    IdFTP1.Disconnect;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hej The-Freak
Tak for din kode.

Men for nu fejmeddelsen:Error with message '550'Test.txt' : No Such file.'.

Hvad tror du der går galt?

Med venlig hilsen
Monie Jacobsen

E-mail: mjs at nypost dot dk

Det er at filen Test.txt ikke findes på serveren og så derfor ikke kan hentes...

MVH. TheOne

Ok Det var bare en lille øvelse kode, jeg blot ville lærer.
Jeg har heller inge server kørende på min computer.
Jeg troe det var hos udbyderen af webhotel, jeg kunne benytte
denn FTP program til, at holde min hjemmeside opdateret med.

Med venlig hilsen
Monie Jacobsen

E-mail: mjs at nypost dot dk

Ok Det var bare en lille øvelse kode, jeg blot ville lærer.
Jeg har heller inge server kørende på min computer.
Jeg troe det var hos udbyderen af webhotel, jeg kunne benytte
denn FTP program til, at holde min hjemmeside opdateret med.

Med venlig hilsen
Monie Jacobsen

E-mail: mjs at nypost dot dk

Hmmm.... Det burde du også kunne... Men som tidligere sagt, betyder 550, at der er opstået en fejl...

MH.

The-Freak

Livet er for kort til at kede sig.