Ftp'ye Upload

[berken]

sanırım cevap yok ??

[lazio]

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..

Buraya kadarki kısmına daha önce cevap verilmiş zaten, sadece birazcık uğraşman gerekiyor..

daha sonra bilgi goruntulerken bunu timage de goruntuleyecem.. işlem basıt ama bir bütün olarak cevap alamadım..

Veritabanından resmin adresini al ve timage a path olarak ver bakalım bi. denemedim ama uzak makinadaki bir image ı gösterebilir sanıyorum. daha doğrusu onu temp e alıp göstereceğini tahmin ediyorum. eğer buda olmazsa başka çözümlerde bulunabilir..

[berken]

lazio hocam cevap verilmiş ama eğer okursanız upload edilen dosyayı
http://www.xxx.com/dosyaadi gibi bir linketen göremeyeceğimiz de eklenmiş..
benım çözemediğim burası..
ben o dosyaya herhangi bir adresle ulaşamazsam upload etmemin anlamı yok..
upload unit i çalışıyor gibi gorunuyor.. hata vermıyor.. ama adresi bırak cpanel e girip altını ustune getiriyorum dosya yak.. download a verilen cevap da http://www.xxxx.com/dosyaadi gibi bir linkten çekiliyor..
o da hata vermıyor .. sorunsuz gibi gorunuyor. ama var olan bir dosyayı bile indir diyorum .. target a bakıyorum dosya yok.. hem zaten upload ettiğim dosyanın adresi yoksa onu nasıl down edecem..
saygılarımla..

[rsimsek]

/www de (web sayfasının/index/ana dizin olduğu yer bazen /homepage dizini) altında ise ve erişime açıksa dediğin şekilde indirebilirsin..

[berken]

daha once verilen cevaplar tekrarlanıyor..
upload da sorun yok daha doğrusu gidiyor gibi ama nereyegidiyor belli değil.
cpanel filemanager den göremiyorum..

ve download da da sorun yok.. o da yapıyor gibi... .
ayrı ayrı değil ikisinin cevabı bir bütün olarak yok mu ..
yanı fotografı 4.kat 11 numaraya upload ettim.. ve onu orda goruyorumm.. gorsem zaten indirecem... o da mechul de .. onemli olan onu orda gormem.

[rsimsek]

Biz de cevapları tekrarlamaya devam edelim

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

Gittiğinden emin olamazsanız nereye gittiğini hiç bilemezsiniz
Aynı durum kontrolünden gönderimin başarıyla sonuçlandığının teyidini alın

[berken]

yanı konunun açıldığı fonksiyondan vazgecelim.. klasik yontemlere bakalım..
ama konu bir fonksiyonun bunu yapacağı uzere acılmıştı.. rsimsek sana ve mustafa hocama çok teşekkur ederim.. ilginiz ve bilginiz için.. ama konuyu baslatan arkadastan bu işi tam olarak nasıl yaptığını öğrenmek isterdim..
saygılarımla

[Trial_Cooder]

Berken 2 Sorunuda Cevapladım 1. Sayfayı Oku

1.

procedure TForm1.Button1Click(Sender: TObject);
begin
uploadmyfile(PChar(OpenDialog1.FileName), PChar(Edit1.Text);
end;

end.

2.

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));

[gloryboy]

peki aynı kodlara birde ftpdeki bir doayayı sile eklentisi yapsak ?