FTP İLE İNDİRDİĞİM DOSYA 0 KB GELİYOR

[dabaddah]

arkadaşlar forumu aradım ancak benim sorunuma en yakın sorunu şu linkde buldum ama tam olarak oda benim sorunuma uygun değil .
viewtopic.php?t=19095&highlight=idftp

sorunum şu

IdFTP1.Connect;
IdFTP1.Host := 'www.delfya.com';
IdFTP1.Passive:=true;
IdFTP1.Username := 'delfya';
IdFTP1.Password := '***';
IdFTP1.Get('www.delfya.com/program/1.exe','D:\mustafa\1.exe', true);
IdFTP1.Disconnect;

yukarıdaki kodlarla ftpden dosyayı çektiğimde dosya geliyor burası tamam ancak dosya hem 0 kb olarak geliyor hemde dosyayı açmaya çalıştığımda

geçerli bir win32 uygulaması değil hatası alıyorum ayrıca birde program kırılıyor ve aşağıdaki hatayı alıyorum.

'Can't open http://www.delfya.com/program/1.exe: No such file or directory
'. Process Project1.exe (948)

işin ilginç tarafı böyle bir konum yok diyor ama hem dosyayı indiriyor o konumdan hemde internet explorer den aynı konumu yazarak dosyayı indirebiliyorum

isterseniz sizde koddaki konumu tarayıcınıza yazarak deneyin ....

eğer başka bir şekil de dosya çekebileceğim bir yöntem varsa mesela api ile olabilir yazarsanız memnun olurum...

selametle

[Battosai]

IdFTP1.Host := 'www.delfya.com';
şeklinde kullanmışın hiç FTP bir siteye bağlanmadın heralde...
ayrıca "IdFTP1.Connect;" bu ifade host,kullanıcı adı falan tanımlandıktan sonra kullanılır...bu kodları nerden buldum bilmiyorum ama düzeni ve ftp adresini değiştir...eğer ftp ye bağlanma gib bir niyetin varsa Tahminimce sen bu dosyayı indirmeye çalışıyorsun ve bu işinde idFTP ile yapmaya çalışıyorsun halbuki idhttp ile yapsan daha mantıklı...

[khanco]

dosya tamamlanmadan disconnect olmasın?
arada biraz bekletsen

[dabaddah]

walla battosai arkadaşın öderdiklerinin hepsini yaptım ama sonuç yine değişmedi kendisi diyorki connecti host adı kullanıcı adın falan bunlardan sonra yazarsın
ben zaten object inspectordan tanımlamışım bunların hepsini zaten hata bunlardan kaynaklanmıyor ki hatada yol yanlış diyor ancak dosyayı indiriyor 0 kb olarak

eğer ftp de yolun nasıl yazıldığını söylerseniz bunuda denerim ama khanconun dediği sorun olabilir dosya gelmeden disconnect olayı

[khanco]

Bahsettiğin dosya 22 k olaral iniyor.
kullandığım kodlar içinde bileşen yok sadece fonksiyon var

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, urlmon, shellapi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
  const

// İndirilecek dosya
SourceFile = 'http://www.delfya.com/program/1.exe';

// dosyanın kaydedileceği yer klasör açık olmalı
DestFile ='D:\mustafa\1.exe';


begin
 DownloadFile(SourceFile, DestFile);
end;

end.