آپلود فایل در هاست

[me.enik]

سلام.

میخواستم بدونم که چی جوری میشه که یک فایل را بر روی هاست آپلود کرد؟
فقط اگر یک نمونه کد بگذارید, کار من راه میافته.

ممنون.

[mohsen24000]

دوست من این مورد خیلی بحث شده و کد هم گذاشته شده! فقط کافیه در تاپیک ها و پست ها یه جستجوی کوچکی انجام بدید...:چشمک:

[me.enik]

زیاد جستجو کردم و بعدش که به نتیجه ای نرسیدم این تاپیک را زدم.
اکثر مطالب برای زبان های تحت وب بودش و برای دلفی چیز خاصی پیدا نشد.

نحوه آپلود یک متن را میدانم که چی جوری هستش, ولی برای عکس میخوام که چیزی پیدا نکردم.

شاید من نتونستم درست جست و جو کنم, اگر این طور هستش ممنون میشوم شما لینک هایی را که پیدا کرده اید را بگذارید.

[mohsen24000]

http://barnamenevis.org/showthread.php?108534-%D8%A2%D9%BE%D9%84%D9%88%D8%AF-%DA%A9%D8%B1%D8%AF%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D8%A8%D8%B1-%D8%B1%D9%88%DB%8C-%D9%87%D8%A7%D8%B3%D8%AA-%D9%88%D8%A8-%D8%B3%D8%A7%DB%8C%D8%AA-%D8%A7%D8%B2-%D8%B7%D8%B1%DB%8C%D9%82-%D8%AF%D9%84%D9%81%DB%8C&p=530059&viewfull=1#post530059

[me.enik]

شرمنده, ولی اون لینکی که شما دادید مفید نبود.
و دست به دامن سایت های خارجی شدم!
گفتم اینجا بزارم تا شاید یک روزی کار یکی را راه بندازه.

procedure TForm1.ConnectClick(Sender: TObject);
begin
idFTP.Host := 'hecomer.zxn.ir';
idFTP.Port := 21;
idFTP.Username := 'n649855373';
idFTP.Password := '0123456';
idFTP.Connect;
end;

procedure TForm1.UploadClick(Sender: TObject);
begin
if idFTP.Connected then
begin
if OpenDialog1.Execute then
begin
idFTP.Put(OpenDialog1.FileName, ExtractFileName(OpenDialog1.FileName));
idFTP.Disconnect;
end;
end;
end;