آپلود کردن فایل

[The.Ghost]

با سلام
من می خواستم که یک فایل به نام Ali.txt را در اینترنت با دلفی آپلود کنم لطفا راهنمایی کنید
ممنون

[lord_viper]

از کامپوننت idhttpclient یا idftpclient و همچنین میتونین از idhtmldocoment2 هم استفاده کنین
انتخاب هر کدام از کامپوننتها به نیاز شما بستگی داره

[veyskarami]

يونيت wininet رو اضافه كن و از فانكشن زير مي توني براي آپلود روي Ftp استفاده كني.

کد:

procedure FtpUpload (File2Upload,targetfilename,szSite,szUsername,szPassword:pchar);
const
TheFtpPort=21;
var
intconn,intopen : hinternet;
begin
intopen := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
intconn := internetconnect(intopen,szSite,TheFtpPort,szUsername,szPassword,INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
if getlasterror<>0  then Exit;
ftpputfile(intconn,File2Upload,targetfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(intconn);
internetclosehandle(intopen) ;
END;

[The.Ghost]

میشه طریقه استفاده اش را با یک مثال لطف کنی و توضیح بدی ممنونم

[veyskarami]

File2Upload = آدرس فايلت كه مي خواي آپلود كني.
targetfilename = آدرس محلي كه مي خواي تو ftp كپي بشه.
szSite = آدرس Ftp كه مي خواي فايلهات توش كپي بشن.
szUsername = يوزرنيم ftp كه باهاش لاگين ميشي.
szPassword = كلمه عبور ftp كه باهاش لاگين ميشي.

کد:

FtpUpload ('c:\pic.jpg,'picture\pic.jpg','ftp.orgfree.com','ghost','123456');

البته خودت بايد يه اكانت ftp داشته باشي يا ايجاد كني.
تو همون orgfree مي توني رايگان ايجاد كني