Delphi_Developer
دوشنبه 02 خرداد 1384, 11:33 صبح
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
دوشنبه 02 خرداد 1384, 13:20 عصر
با 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
پنج شنبه 12 خرداد 1384, 01:02 صبح
آقا از کمکت ممنونم اما من این چیزایی رو که شما گفتی دونه به دونه انجام دادم اما آخرش تو اجرا از سوکت ایراد گرفت > به اینترنت هم وصل بودم / لطفا اگه ممکنه یه Sample برام بذار
ممنون
Touska
پنج شنبه 12 خرداد 1384, 12:28 عصر
تو Sample های خود کامپوننتهای Indy هست.
موفق باشید :flower:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.