Delphi & FTP txt veri işleme

[Mr.Developer]

iyi günler,


Delphi de, bir FTP hesabındaki txt dosyasının içindekini memo da gösterme ve memo da yazılanı tekrar txt dosyasına upload etme gibi işlemleri nasıl gerçekleştirebilirim ?


herhangi bir kaynak ve kod bulmakta zorlandım da 

[SimaWB]

Indy, Synapse, ICS vs. sınırsız kaynak-örnek var. Siz 1 adım atın, biz 10 adım geliriz

[Mr.Developer]

(26-09-2018, Saat: 13:13)SimaWB Adlı Kullanıcıdan Alıntı: Indy, Synapse, ICS vs. sınırsız kaynak-örnek var. Siz 1 adım atın, biz 10 adım geliriz

çok teşekkür ederim değerli hocam 

şuanda ;

https://www.youtube.com/watch?v=f7N6GRb6BfE

https://www.youtube.com/watch?v=m_3yJnSqex8

videolarına ulaştım ve deniyordum 

bir çok yerde daha yardıma ihtiyacım olduğunu şimdiden belirteyim 

[cinarbil]

Aşagıdaki procedure içini görür.
Delphican sitesinden alarak kendime göre ayarlamıştım.
Delphican 'a teşekkür ederim.

txt dosyayı kendi makinana indirin ve oran açabilirsin.

procedure VersiyonKontrol;
var
 FTPAdres,KaynakDizin,Name,Pass,KaynakDosya,HedefDosya : String;
begin
 FTPAdres := 'ftp.xxxxxxxxx.com.tr'; //  veri çekilecek ftp adresi
 KaynakDizin := '/';
 Name := 'kul@xxxxxxxxx.com.tr'; // ftp bağlanma izni olan kullanıcı
 Pass := '??????';
 KaynakDosya := 'siteversiyon.txt'; // sitede bulunan txt dosya adı
 HedefDosya  :=  'c:\siteversiyon.txt';  // kendi makinanda kaydedecegin yer


 if FTPDosyaAl(KaynakDosya, HedefDosya, FTPAdres, KaynakDizin, Name, Pass ) then
 begin
 sitememo.Lines.LoadFromFile( 'c:\siteversiyon.txt'); 
 end; //


function FTPDosyaAl(SrcDosya, DesDosya:TFileName; Ftp, RemoteDir, Login, Pass : String ):Boolean;
begin // Uses IdFTP, IdFTPCommon
 ftp1:=TidFTP.Create(nil);
 IDAntiFreeze := TIDAntiFreeze.Create(NIL); // büyük dosyalar inerken donmasın diye
 Result := False;
 Ftp1.Host := Ftp;
 Ftp1.Username := Login;
 Ftp1.Password := Pass;
 Ftp1.Passive := True;
 Ftp1.Connect;

 if Ftp1.Connected then
 begin
   Ftp1.ChangeDir(RemoteDir);
   Try
     Ftp1.TransferType := ftBinary; // Uses IdFTPCommon
     Ftp1.Get(SrcDosya, DesDosya, True);
   Finally
     Result := True;
   end;
   Ftp1.Quit;
 end;
end;

[Mr.Developer]

(26-09-2018, Saat: 13:18)cinarbil Adlı Kullanıcıdan Alıntı: Aşagıdaki procedure içini görür.
Delphican sitesinden alarak kendime göre ayarlamıştım.
Delphican 'a teşekkür ederim.

txt dosyayı kendi makinana indirin ve oran açabilirsin.

procedure VersiyonKontrol;
var
 FTPAdres,KaynakDizin,Name,Pass,KaynakDosya,HedefDosya : String;
begin
 FTPAdres := 'ftp.xxxxxxxxx.com.tr'; //  veri çekilecek ftp adresi
 KaynakDizin := '/';
 Name := 'kul@xxxxxxxxx.com.tr'; // ftp bağlanma izni olan kullanıcı
 Pass := '??????';
 KaynakDosya := 'siteversiyon.txt'; // sitede bulunan txt dosya adı
 HedefDosya  :=  'c:\siteversiyon.txt';  // kendi makinanda kaydedecegin yer


 if FTPDosyaAl(KaynakDosya, HedefDosya, FTPAdres, KaynakDizin, Name, Pass ) then
 begin
 sitememo.Lines.LoadFromFile( 'c:\siteversiyon.txt'); 
 end; //


function FTPDosyaAl(SrcDosya, DesDosya:TFileName; Ftp, RemoteDir, Login, Pass : String ):Boolean;
begin // Uses IdFTP, IdFTPCommon
 ftp1:=TidFTP.Create(nil);
 IDAntiFreeze := TIDAntiFreeze.Create(NIL); // büyük dosyalar inerken donmasın diye
 Result := False;
 Ftp1.Host := Ftp;
 Ftp1.Username := Login;
 Ftp1.Password := Pass;
 Ftp1.Passive := True;
 Ftp1.Connect;

 if Ftp1.Connected then
 begin
   Ftp1.ChangeDir(RemoteDir);
   Try
     Ftp1.TransferType := ftBinary; // Uses IdFTPCommon
     Ftp1.Get(SrcDosya, DesDosya, True);
   Finally
     Result := True;
   end;
   Ftp1.Quit;
 end;
end;

öncelikle teşekkür ederim ve daha açık bir kullanım açıklaması sunarmısınız sanırım bilgim yetmiyor da 

[cinarbil]

Formun  kod bölümünde uses satırına 
IdFTP, IdFTPCommon,IdAntiFreeze   ekleyin

public bölümüne 

function FTPDosyaAl(SrcDosya, DesDosya:TFileName; Ftp, RemoteDir, Login, Pass : String ):Boolean;

ekleyin

sonra  forma bir buton ekleyin ve onClick olayına kodu yapıştırın
  

procedure Tgiris_frm.Button1Click(Sender: TObject);
var
 FTPAdres,KaynakDizin,Name,Pass,KaynakDosya,HedefDosya : String;
begin
 FTPAdres := 'ftp.xxxxxxxxx.com.tr'; //  veri çekilecek ftp adresi
 KaynakDizin := '/';
 Name := 'kul@xxxxxxxxx.com.tr'; // ftp bağlanma izni olan kullanıcı
 Pass := '??????';
 KaynakDosya := 'siteversiyon.txt'; // sitede bulunan txt dosya adı
 HedefDosya  :=  'c:\siteversiyon.txt';  // kendi makinanda kaydedecegin yer
 
 // başarı ile ftp alırsa  
 if FTPDosyaAl(KaynakDosya, HedefDosya, FTPAdres, KaynakDizin, Name, Pass ) then
 begin
 sitememo.Lines.LoadFromFile( 'c:\siteversiyon.txt');  // buradaki sitememo sizin memo bileşin adı olacak
 end; //


end;

formun son End.  satırından önce kodları yapıştırın

function FTPDosyaAl(SrcDosya, DesDosya:TFileName; Ftp, RemoteDir, Login, Pass : String ):Boolean;
begin // Uses IdFTP, IdFTPCommon
ftp1:=TidFTP.Create(nil);
IDAntiFreeze := TIDAntiFreeze.Create(NIL); // büyük dosyalar inerken donmasın diye
Result := False;
Ftp1.Host := Ftp;
Ftp1.Username := Login;
Ftp1.Password := Pass;
Ftp1.Passive := True;
Ftp1.Connect;

if Ftp1.Connected then
begin
  Ftp1.ChangeDir(RemoteDir);
  Try
    Ftp1.TransferType := ftBinary; // Uses IdFTPCommon
    Ftp1.Get(SrcDosya, DesDosya, True);
  Finally
    Result := True;
  end;
  Ftp1.Quit;
end;
end;

[Tuğrul HELVACI]

Bu kadar yardımseverliğe karşıyım açıkçası !

[Mr.Developer]

(26-09-2018, Saat: 14:45)cinarbil Adlı Kullanıcıdan Alıntı: Formun  kod bölümünde uses satırına 
IdFTP, IdFTPCommon,IdAntiFreeze   ekleyin

public bölümüne 

function FTPDosyaAl(SrcDosya, DesDosya:TFileName; Ftp, RemoteDir, Login, Pass : String ):Boolean;

ekleyin

sonra  forma bir buton ekleyin ve onClick olayına kodu yapıştırın
  

procedure Tgiris_frm.Button1Click(Sender: TObject);
var
 FTPAdres,KaynakDizin,Name,Pass,KaynakDosya,HedefDosya : String;
begin
 FTPAdres := 'ftp.xxxxxxxxx.com.tr'; //  veri çekilecek ftp adresi
 KaynakDizin := '/';
 Name := 'kul@xxxxxxxxx.com.tr'; // ftp bağlanma izni olan kullanıcı
 Pass := '??????';
 KaynakDosya := 'siteversiyon.txt'; // sitede bulunan txt dosya adı
 HedefDosya  :=  'c:\siteversiyon.txt';  // kendi makinanda kaydedecegin yer
 
 // başarı ile ftp alırsa  
 if FTPDosyaAl(KaynakDosya, HedefDosya, FTPAdres, KaynakDizin, Name, Pass ) then
 begin
 sitememo.Lines.LoadFromFile( 'c:\siteversiyon.txt');  // buradaki sitememo sizin memo bileşin adı olacak
 end; //


end;

formun son End.  satırından önce kodları yapıştırın

function FTPDosyaAl(SrcDosya, DesDosya:TFileName; Ftp, RemoteDir, Login, Pass : String ):Boolean;
begin // Uses IdFTP, IdFTPCommon
ftp1:=TidFTP.Create(nil);
IDAntiFreeze := TIDAntiFreeze.Create(NIL); // büyük dosyalar inerken donmasın diye
Result := False;
Ftp1.Host := Ftp;
Ftp1.Username := Login;
Ftp1.Password := Pass;
Ftp1.Passive := True;
Ftp1.Connect;

if Ftp1.Connected then
begin
  Ftp1.ChangeDir(RemoteDir);
  Try
    Ftp1.TransferType := ftBinary; // Uses IdFTPCommon
    Ftp1.Get(SrcDosya, DesDosya, True);
  Finally
    Result := True;
  end;
  Ftp1.Quit;
end;
end;

çok teşekkür ederim yardımınız ve anlatımınız için çok yardımcı oldunuz 

---

(26-09-2018, Saat: 14:58)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Bu kadar yardımseverliğe karşıyım açıkçası !

olaylara iyi yönden bakmak yardımseverliği arttırır bu da her zaman iyi yöne yöneltir düşüncesindeyim böylece bu düzen hep böyle devam eder. 

yardım etmeleri açıkcası ilgi ve alakayı ikiye katlar ( azı çoğu olmaz ) nitekim katladığını da belirtmek isterim hocam.

[quake16]

Delphi öğrenmeye çalışan birçok kişinin sıkıntısı zaten bu ya yeteri kadar yardım alamamak. Bu şekilde bu dilin ülkemizde kullanımının azalmasına da etkisi var. Delphi hakkında ülkemizde kurs veren bir kurum kalmadı varsa bile bir elin parmaklarını bulmaz. Youtube bakıyorsunuz C#, Java, Python, C++ vb gibi dillerle alakalı tonla video ve örnek uygulamalar var Türkçe olarak. Delphi'nin popülerliğini kazanmasını istiyorsak bu işi bilenlerin paylaşımdan kaçmak yerine ipin ucundan tutmaları gerektiği düşüncesindeyim. İngilizce kaynak zaten bu konuda var. Farklı ülkelerde ve dillerde daha detaylı paylaşımlar var ama bizim ülkemizde yok. Bilgiyi saklama bizim en büyük sıkıntımız zaten. Hep olaya para kazanma mantığıyla bakıyoruz. Paylaşıma destek veren ve yardımı esirgemeyen herkese şimdiden teşekkür ederim. cinarbil arkadaşımızı da konuya verdiği destekten dolayı teşekkür ederim.

[ahmet_sinav]

Bizim milletimizin kötü bir alışkanlığı hazırcılık ve tembellik. Yukarda sorulan sorular zor sorular değil ki başvurabileceğin anahtar kelimelerde verildi zaten. Araştırmadan geliştirme olmuyor. Ne kadar çok araştırırsan o kadar çok gelişirsin. Anahtar kelimeler vererek seni araştırmaya sevketmek sana çok yardımcı olur ufkunu açar.
Hayırlı akşamlar.