Ftp'ye Upload

mc_rapier · Mesaj gönderen **mc_rapier** » 09 Nis 2006 01:26

Forumda Vardı Demeyin, Millet IdFtp'lerle Uğraşıyo Hiç Yapan Görmedim. Selametle

unit FtpUpload;

interface

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

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

var
  Form1: TForm1;
 intconn,intopen : hinternet;

implementation

{$R *.dfm}

procedure UploadMyFile (File2Upload:pchar; targetfilename:pchar);
const
TheFtpPort=21;
begin
intopen := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
intconn := internetconnect(intopen,'ftp.site.com',TheFtpPort,'kullanıcı_adı','sifre',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
ftpputfile(intconn,File2Upload,targetfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(intconn);
internetclosehandle(intopen) ;
END;

//Kullanımı

procedure TForm1.Button1Click(Sender: TObject);
begin
uploadmyfile('önemliler.txt', 'index.html');
end;

end.

uploadmyfile('(Buraya Upload Olacak Dosyanızı Yazın)', '(Buda Ftp'ye Gidiş Adı)');

mc_rapier · Mesaj gönderen **mc_rapier** » 11 Nis 2006 09:34

ftp.site.com,
kullanıcı_adı,
şifre'yi editlere yönlendirmek istiyorsanız;

intconn,intopen : hinternet; satırının altına (yani "var" ın altına)

Host: String;
User: String;
Pass: String;

yazın

formcreate ye veya upload buttonuna;

Host := Edit1.Text;
User := Edit2.Text;
Pass := Edit3.Text;

Yazın

ve kodunu

Kod: Tümünü seç

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

olarak değiştirin

berken · Mesaj gönderen **berken** » 30 Haz 2006 04:24

kodları yazdım sorunsuz çalışıyor.. fakat bunu serverda farklı bir klasore atmak istiyorum.. daha doğrusu nereye gittiğini bilmiyorum..
yardımcı olursanız sevinirim.

Trial_Cooder · Mesaj gönderen **Trial_Cooder** » 30 Haz 2006 06:11

uploadmyfile('dosyan.türü', 'oradakikalsör/dosyanınordakiadı.türü');

berken · Mesaj gönderen **berken** » 04 Tem 2006 01:37

hocam bir şeyleri eksik mi yapıyorum. .. gonderiyorum dosyayı fakat sitede bir şey goremiyorum....

maqro · Mesaj gönderen **maqro** » 05 Tem 2006 08:06

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); 
begin 
uploadmyfile('önemliler.txt', 'index.html'); 
end; 

end.

bu bölümü şu şekilde düzenle olacaktır

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); 
begin 
uploadmyfile('c:\önemliler.txt', 'deneme.html'); 
end; 

end.

tabiki c:\ dizininde önce bir önemliler.txt oluşturmalısın. ayrıca deneme.html dosyası herhangi bir klasöre değilde direk ftpnin içine gidecek. wwwroot dizinine falan değil yani http://www.siteadi.com/deneme.html de göremezsin dosyayı. birde yolladıktan sonra refresh yapmayı belki gözden kaçırmış olabilirin..

iyi çalışmalar.

berken · Mesaj gönderen **berken** » 06 Tem 2006 02:42

peki gonderdiğim dosyayı nasıl takıp edebilirim..
yanı delphi ile bir resim dosyasını siteye upload edecem. daha sonra mesela Timage ile o dosyayı görüntülemek istiyorum..

Trial_Cooder · Mesaj gönderen **Trial_Cooder** » 08 Tem 2006 11:59

Kod: Tümünü seç

uses kısmına ShellApi ve UrlMon unitlerini ekleyin.

function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
  try
    Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SourceString, DestinationString: string;
begin
SourceString := 'http://siten.com/abc.jpg;
DestinationString := SourceString;

if DownLoadInternetFile(SourceString, DestinationString) then
  ShellExecute(Application.Handle, PChar('Open'), PChar(DestinationString), PChar(''), nil, SW_NORMAL)
else
  MessageDlg('Dosya indirilemedi!', mtError, [mbOK], 0);
end;

Image1.Pictures.LoadFromFile(PChar(SourceString));

Edit By MC_Rapier

berken · Mesaj gönderen **berken** » 10 Tem 2006 03:06

maqro nun yazdığı , upload ettiğiniz dosyayı link seklinde göremezsiniz ,
ve Trial Coder ın yazdığı linkten çekme işlemi.. yanı upload ettiğim dosyaya link şeklinde ulaşamıyorsam , Trial in yazdığı şekildede indiremem..
yanlış mı düşünüyorum..
.............
derdimi açıkça anlatayım..
yaptığım bir projede ( hemen her projede olduğu gibi) üyeler kısmı ve bunlara ait resimler ekliyorum..
Delphi7 & Mysql , Mydac bileşenini kullanıyorum.. bana o resimleri veritabanında tutmak pek mantıklı gelmiyor açıkçası..
tek pc için, fotografı database kaydediyorum.. Acces ile..
ama uzaktan baglantılarda, mecburen herkesin gorebileceği bir yer olmalı fotografı attığım bölge..
bunu da Mysql datalarını tutmak için kiraladığım Server de tutmak iyi bir çözüm sanırım..
yani database de foto adresi tek olacak..
................
Maqro nun ve Trial coder in yazdıkları upload ve download işlemleri başarılı ve doğru sanırım..
ama bunları nasıl birleştirebilirm en ustte belirlediğim gibi..
iyi çalışmalar diliyorum..

Mesaj gönderen **lazio** » 10 Tem 2006 03:55

Veri tabanınında resmin linki olarak, Upload ettiğin sitenin url si (http://www.site.com) + dosya adını (aaa.gif) kaydedeceksin.
yeni bir resim eklerken bu bilgiyi, resmi download ederkende db deki kaydı indireceksin.

berken · Mesaj gönderen **berken** » 11 Tem 2006 06:09

upload ederken hata vermiyor..
sitede 'www.site.com' + dosyaismi diye bir şey çıkmıyor..
yanı upload ediyor mu etmiyor mu bilmiyorum..

'www.site.com'+ dosyaismi olmayınca da nasıl download edecem ???
download isa hata vermiyor ancak indirmiyor da.. başka var olan bir dosyayı yanı..

berken · Mesaj gönderen **berken** » 11 Tem 2006 06:15

upload ederken 'ftp.site.com'
yerine mesela 'http://www.xxx.com.tr' yazıp kullanıcı adı ve şifresini (cpanel) girsem nasıl olur..
ve şifreleri yanlış da versem herhangi bir şey demiyor.

Mesaj gönderen **rsimsek** » 11 Tem 2006 09:01

FTP bileşeninin durum/status kontrolunde bağlanıp bağlanmadığını mesaj verdirerek kontrol edebilirsin..

berken · Mesaj gönderen **berken** » 14 Tem 2006 06:02

arkdasşlar ilginize teşekkur ederim..
ancak ben sorunumu çözemedim..
yani ben siteye www ya da ftp sine bir dosya upload edecem.... o dosyanın adresini veritabanına yazdıracam.. daha sonra bilgi goruntulerken bunu timage de goruntuleyecem.. işlem basıt ama bir bütün olarak cevap alamadım..

Mesaj gönderen **pro_imaj** » 14 Tem 2006 06:19

mc_rapier yazdı:Forumda Vardı Demeyin, Millet IdFtp'lerle Uğraşıyo Hiç Yapan Görmedim. Selametle

Hocam acaip komik bir durum gülmekten yıkıldım desem yeridir. Yahu bu adminler ammada korkutmuş bizleri

Delphi Forum

Ftp'ye Upload

Ftp'ye Upload

Re: Ftp'ye Upload