Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Ftp Upload ( kısa kod )  (Okunma sayısı 5016 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı YLDRM_WEB

  • Delphi 1 Level 5
  • *****
  • İleti: 43
  • Rep: +0/-2
Ftp Upload ( kısa kod )
« : 06 Mayıs 2007 00:58:40 »

// procedure

procedure UploadMyFile (File2Upload:pchar; targetfilename:pchar);
const
TheFtpPort = 21;
begin
intopen := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
intconn := internetconnect(intopen, 'HOSTADRES', TheFtpPort, 'KULLANICI', 'SIFRE',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
ftpputfile(intconn,File2Upload,targetfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(intconn);
internetclosehandle(intopen);
end;




// button içine yazılacak kod

UploadMyFile(pchar(edit1.text),pchar(edit1.text));



------------------------------------------------------
Uses Kısmına   Wininet Eklemeyi Unutmayınız

Tüm Forumlar İçin Tanımlanacak Değişken
intconn,intopen: hinternet;

HOSTADRES : Host Adresimizi Yazıyoruz
KULLANICI    : Kullanıcı Adımızı
SIFRE          : Şifremizi

edit1.text    : Ftp Atılacak Dosyayı Aldıgı Yer




//

Tr_C0D3R
ISMAIL_YLDRM
tr_c0d3r@hotmail.com
www.donanimokulu.com
www.yazilimdevi.org
« Son Düzenleme: 06 Mayıs 2007 01:13:36 by Tr_C0D3R »
Kayıtlı
............::::.................
H

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: Ftp Upload ( kısa kod )
« Yanıtla #1 : 06 Mayıs 2007 01:45:12 »
paylaşım için teşekkürler...
Kayıtlı

YLDRM_WEB

  • Ziyaretçi
Ynt: Ftp Upload ( kısa kod )
« Yanıtla #2 : 19 Haziran 2008 14:24:18 »
paylaşım için tşkler :))
Kayıtlı

Çevrimdışı ozansoydas

  • Delphi 1 Level 1
  • *
  • İleti: 4
  • Rep: +0/-0
Ynt: Ftp Upload ( kısa kod )
« Yanıtla #3 : 22 Aralık 2008 01:46:02 »
ya arkadaslar ben bu kodu kullanıyorum cok tesekkurler uploadta sorun yok ama ben downloadı yapamadım idftp companentler kulanmak istemiyorum bu sekilde wininet kullanmıs olarak ftpden dosya cekebilirmiyiz???


Alıntı yapılan: YLDRM_WEB - 06 Mayıs 2007 00:58:40

// procedure

procedure UploadMyFile (File2Upload:pchar; targetfilename:pchar);
const
TheFtpPort = 21;
begin
intopen := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
intconn := internetconnect(intopen, 'HOSTADRES', TheFtpPort, 'KULLANICI', 'SIFRE',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
ftpputfile(intconn,File2Upload,targetfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(intconn);
internetclosehandle(intopen);
end;




// button içine yazılacak kod

UploadMyFile(pchar(edit1.text),pchar(edit1.text));



------------------------------------------------------
Uses Kısmına   Wininet Eklemeyi Unutmayınız

Tüm Forumlar İçin Tanımlanacak Değişken
intconn,intopen: hinternet;

HOSTADRES : Host Adresimizi Yazıyoruz
KULLANICI    : Kullanıcı Adımızı
SIFRE          : Şifremizi

edit1.text    : Ftp Atılacak Dosyayı Aldıgı Yer




//

Tr_C0D3R
ISMAIL_YLDRM
tr_c0d3r@hotmail.com
www.donanimokulu.com
www.yazilimdevi.org
Kayıtlı

Çevrimdışı cheshme

  • Delphi 1 Level 2
  • **
  • İleti: 14
  • Rep: +1/-0
Ynt: Ftp Upload ( kısa kod )
« Yanıtla #4 : 27 Temmuz 2009 14:12:34 »
arkadaşlar kod dosyayı nereye upload etmiş oluyor? bu host adresi olarak yazdığımız yere mi? ve upload tan sonra download ı nasıl yapacağız??
Kayıtlı

Çevrimdışı cheshme

  • Delphi 1 Level 2
  • **
  • İleti: 14
  • Rep: +1/-0
Ynt: Ftp Upload ( kısa kod )
« Yanıtla #5 : 29 Temmuz 2009 15:34:12 »
birisi baksa keşke (:
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: Ftp Upload ( kısa kod )
« Yanıtla #6 : 30 Temmuz 2009 23:39:48 »
Alıntı yapılan: cheshme - 27 Temmuz 2009 14:12:34
arkadaşlar kod dosyayı nereye upload etmiş oluyor? bu host adresi olarak yazdığımız yere mi? ve upload tan sonra download ı nasıl yapacağız??

formuna bir adet edit koy upload buttonunun da onClik olayına aşağıdaki kodu yaz..

Kod:  (Unknown Language)
  1. UploadMyFile(pchar(edit1.text),pchar(edit1.text));
  2.  


Download içinde aşağıdaki kodu kullanabilirsiniz ..

uses kısmına :

Kod:  (Unknown Language)
  1. ExtActns;
  2.  

private ın altına :

Kod:  (Unknown Language)
  1. procedure URL_OnDownloadProgress(Sender: TDownLoadURL;Progress, ProgressMax: Cardinal;StatusCode: TURLDownloadStatus;StatusText: String; var Cancel: Boolean) ;
  2.  


implementation ın altına :

Kod:  (Unknown Language)
  1. procedure URL_OnDownloadProgress;
  2. begin
  3.    ProgressBar1.Max:= ProgressMax;
  4.    ProgressBar1.Position:= Progress;
  5. end;
  6.  


download button ununuzn altna :

Kod:  (Unknown Language)
  1.  with TDownloadURL.Create(self) do
  2.    try
  3.      URL:='http://wwww.xxxx.com/xxx.zip'; //Indireceğimiz dosya URL si
  4.      FileName := 'c:\indirilendosyaadi.zip';//Nereye ve ne adda indireceğimizi belirtiyoruz
  5.      OnDownloadProgress := URL_OnDownloadProgress; // az önce oluşturduğumuz metodu , OnDownloadProgress olayı tetiklendiğinde çalışması için atamasını yaptık
  6.      ExecuteTarget(nil) ; //İndirme işlemini başlattık.  
  7.    finally
  8.      Free;  
  9.    end;
  10.   end;
  11.  



Download kodu : delphiturkiye.com dan vkamadan a aittir bende programlarımda bu kodu sorunsuzca kullanıyorum ...

Kayıtlı



Amatör Küme Programcı

Çevrimdışı cheshme

  • Delphi 1 Level 2
  • **
  • İleti: 14
  • Rep: +1/-0
Ynt: Ftp Upload ( kısa kod )
« Yanıtla #7 : 30 Temmuz 2009 23:54:38 »
hocam eyvallah da bişey sorcam. butonun clickine o dediğini direk mi yazcaz yoksa yukardaki kodu ekledikten sonra mı o dediğini butonun clickine yazcaz. eğer önce yukardaki kodu ekleyeceksek o host adres yerine ne gibi bi adres gelcek onu sormuştum. bi de upload ettiğimiz dosyanın download linki nedir?
Kayıtlı

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.229
  • Rep: +55/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: Ftp Upload ( kısa kod )
« Yanıtla #8 : 31 Temmuz 2009 00:05:16 »
Örnek ektedir ...

Kayıtlı



Amatör Küme Programcı
Sayfa: [1]   Yukarı git
« önceki sonraki »