Upload و Download توسط کدهای دلفی

[ariadpg]

چطوری می توانم توسط کدهای دلفی یک فایل را Upload کنم یا یک فایل را Download نمایم>

[Arash_j13]

با Tidhttp خیلی راحت می شه یکیش رو بر روی فرم بزارید برای دانلود کد زیر رو بنویسید


procedure TForm1.Button1Click(Sender: TObject);
var
f:TStream;
begin
f:=TFileStream.Create(edit2.Text,fmCreate);
try
IdHTTP1.Get(edit1.Text,f);
finally
f.Free;
end;

end;



و برای آپلود کد زیر



procedure TForm1.Button2Click(Sender: TObject);
var
f:TIdMultiPartFormDataStream;
begin
f:=TIdMultiPartFormDataStream.Create;
try
f.AddFile('file1',ExtractFileName(edit1.Text),'*/*');
IdHTTP1.Post('http://yoursite/your_post_script',f);
finally
f.Free;
end;

end;


البته باید ادرس اسکریپت دریافت کنند فایل رو تصحیح کنید

و یونیت IdMultipartFormData رو هم اضافه کنید

[ariadpg]

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

[ShamsSoft]

نحوه دانلود فایل را کمی بیشتر توضیح میدهید .

آدرس Http را باید کجا وارد کنیم
فایل پس از دانلود کجا ذخیره میشود ؟

[Arash_j13]

یکم کد ها رو خونیدید واضح بود
دوتا ادیت بر روی فرم قرار بدید توی اولی ادرسی برای ذخیره کردن فایل دومی هم ادرس دریافت فایل از اینترنت