FTP Uploader Component

[Delphi_Developer]

Salam
man caffe netam va in kharab shode roo systemeshoon farsi nasb nashode pas man english minevisam

man ye component baraye upload kardane file be yek site mikham hala ftp bashe ya http farghi nadare


age kasi source ham dare oonam ghabool darim

Thanx

[Delphi Skyline]

با Indy خیلی راحت میشه .
اول کامپاننت idftp رو از indy روی فرمت بزار :)
حالا با دستورات زیر به سایتت وصل شو :


idftp1.host:='Your Host';
idftp1.username:='Your Username';
idftp1.password:='Your Password';


خوب حالا uses ات رو با uses زیر Set کن :


Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,
Menus, SysUtils, Classes, IdIntercept, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, IdAntiFreezeBase, IdAntiFreeze, IdLogBase, IdLogDebug, IdGlobal,
IdLogEvent, IdFTPCommon, IdFTPList , xpman;


خوب حالا برای upload کردن فایل :
اول باید نوع فایل binary بشه :


idftp1.TransferType:=ftbinary;

بعد باید بری تو شاخه ای که می خوای توش فایلتو بزاری :


idftp1.changedir('/WWW/');

خوب حالا این هم برای upload :


idftp1.Put('Name failet ke too harde',extractfilename('name filet ke too hoste'));


کل دستورات برای upload :


idftp1.TransferType:=ftbinary;
idftp1.ChangeDir('/WWW/');
idftp1.Put('Name failet ke too harde',extractfilename('name filet ke too hoste'));



* برای دانلود :
برای دانلود کردن فایل از host ت باید اول به شاخه ی مورد نظرت تو host بری (همون شاخه ای که باید ازش فایل دانلود کنی) :


idftp1.ChangeDir('/WWW/');

خوب حالا با دستور زیر فایلتو دانلود کن :


idftp1.Get('d.txt','f:\d.txt',true);


موفق باشی :موفق:



Thankx

Thank For MultiPlatform :mrgreen:

[Delphi_Developer]

آقا از کمکت ممنونم اما من این چیزایی رو که شما گفتی دونه به دونه انجام دادم اما آخرش تو اجرا از سوکت ایراد گرفت > به اینترنت هم وصل بودم / لطفا اگه ممکنه یه Sample برام بذار

ممنون

[Touska]

تو Sample های خود کامپوننتهای Indy هست.

موفق باشید :flower: