۱۹-آذر-۱۳۸۸, ۱۸:۲۱:۲۳
۱۹-آذر-۱۳۸۸, ۱۹:۰۰:۴۶
از کامپوننت idhttpclient یا idftpclient و همچنین میتونین از idhtmldocoment2 هم استفاده کنین
انتخاب هر کدام از کامپوننتها به نیاز شما بستگی داره
انتخاب هر کدام از کامپوننتها به نیاز شما بستگی داره
۲۰-دى-۱۳۸۸, ۱۶:۵۵:۰۲
يونيت 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;۲۲-دى-۱۳۸۸, ۰۱:۰۱:۴۱
میشه طریقه استفاده اش را با یک مثال لطف کنی و توضیح بدی ممنونم
۲۲-دى-۱۳۸۸, ۱۲:۲۰:۵۳
File2Upload = آدرس فايلت كه مي خواي آپلود كني.
targetfilename = آدرس محلي كه مي خواي تو ftp كپي بشه.
szSite = آدرس Ftp كه مي خواي فايلهات توش كپي بشن.
szUsername = يوزرنيم ftp كه باهاش لاگين ميشي.
szPassword = كلمه عبور ftp كه باهاش لاگين ميشي.
البته خودت بايد يه اكانت ftp داشته باشي يا ايجاد كني.
تو همون orgfree مي توني رايگان ايجاد كني
targetfilename = آدرس محلي كه مي خواي تو ftp كپي بشه.
szSite = آدرس Ftp كه مي خواي فايلهات توش كپي بشن.
szUsername = يوزرنيم ftp كه باهاش لاگين ميشي.
szPassword = كلمه عبور ftp كه باهاش لاگين ميشي.
کد:
FtpUpload ('c:\pic.jpg,'picture\pic.jpg','ftp.orgfree.com','ghost','123456');البته خودت بايد يه اكانت ftp داشته باشي يا ايجاد كني.
تو همون orgfree مي توني رايگان ايجاد كني