Merhabalar

ben dosya upload etmeye çalışıyorum ancak başaramadım
aşağıdaki kodları kullanıyorum


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;

procedure TForm1.Button1Click(Sender: TObject);
begin
UploadMyFile('C:\deneme.txt','deneme.txt'));
end;





ftpde "htdocs/deneme/" dizinine upload etmeye çalışıyorum
ftp adresi:ftp.byethost12.com/htdocs/deneme
Kullanıcı adı:b12_2449451
sifre:deneme

bu sekilde yapdım ancak butona tıkladığımda sonuc alamıyorum

sanırım hata yaptığım yer ftp adresinı yazdığım kısım bi çok kez denedim değiştirerk ama yapamadım
ftp:\\ftp.byethost12.com vs denedim olmadı

tmm bu kadarını hallettim de ftp'de /htdocs/efe dizinine upload etmem lazım onu nasıl yapabilirim

Tamam istediğim gibi yaptım ben ftp deki dizin yolunu host adresinde belirtmiştim sanırım ondan olmadı Teşekürler...

procedure TForm1.Button1Click(Sender: TObject);
var
ftpyol:string;
begin
ftpyol:='/public_html/upload/3.txt';
UploadMyFile(pchar(edit1.text),pchar(ftpyol));
end;

Çözüldü sorun