PDA

View Full Version : نشان دادن عکس از داخل وب



djscsi
پنج شنبه 09 خرداد 1387, 14:54 عصر
چه طوری میشه یه عکسی که در وب هست رو url شو بدی و روی form به نمایش در بیاد

vcldeveloper
پنج شنبه 09 خرداد 1387, 17:02 عصر
با استفاده از IdHTTP در مجموعه Indy باید تصویر را دریافت کنید، بعد از اینکه تصویر دریافت شد، می تونید آن را در یک Stream ذخیره کنید. محتوی دریافتی از IdHTTP از طریق Response در دسترس هست.

djscsi
شنبه 11 خرداد 1387, 11:05 صبح
ممنون کشاورز جان
ولی ای کاش یه مثال ساده میزاشتی
اگه میشه لطف کن و کدش رو بزار
ممنون

djscsi
یک شنبه 12 خرداد 1387, 18:03 عصر
پس جی شد یکی یه کمکی بکنه

vcldeveloper
یک شنبه 12 خرداد 1387, 18:27 عصر
پس جی شد یکی یه کمکی بکنه
تا اون حدی که لازم بود که کار را شروع کنی، کمک شد. مابقی کار را خودت بسم الله بگیر و شروع کن و اگر در جایی گیر کردی، بیا اینجا مشکلت را توضیح بده.
انتظار نداشته باشه کس دیگه کدش را برات بنویسه!

djscsi
یک شنبه 12 خرداد 1387, 19:11 عصر
با استفاده از IdHTTP در مجموعه Indy باید تصویر را دریافت کنید، بعد از اینکه تصویر دریافت شد، می تونید آن را در یک Stream ذخیره کنید. محتوی دریافتی از IdHTTP از طریق Response در دسترس هست.
من فقط فهمیدم که باید idhttp رو از تی indyclient بیارم تو form

بعد از اینکه تصویر دریافت شد، کدش چیه من نوشتم idhttp.ulr و ... ولی هیچ کدوم نبود

می تونید آن را در یک Stream ذخیره کنید.یعنی یه متغییر از نوع stream ?

محتوی دریافتی از IdHTTP از طریق Response در دسترس هست
اینجا رو هم نفهمیدم
حالا دیدی که من تلاشمو کرده بودم ولی به نتیجه نرسیدم کسی هم نیست که ازش بپرسم مجبور شدم اینجا بیام

skflower
پنج شنبه 23 آبان 1387, 12:51 عصر
منم دقیقاً مشکلم همینه. اگه میشه یکم بیشتر توضیح بدید. ما زیر دیپلمیم بابا کوتاه بیاید

hamed_gm
پنج شنبه 08 اسفند 1387, 15:34 عصر
function DownloadJPGToBitmap(const URL : string; ABitmap: TBitmap): Boolean;
var
idHttp: TIdHTTP;
ImgStream: TMemoryStream;
JpgImage: TJPEGImage;
begin
Result := False;
ImgStream := TMemoryStream.Create;
try
idHttp := TIdHTTP.Create(nil);
try
idHttp.Get(URL, ImgStream);
finally
idHttp.Free;
end;
ImgStream.Position := 0;
JpgImage := TJPEGImage.Create;
try
JpgImage.LoadFromStream(ImgStream);
ABitmap.Assign(JpgImage);
finally
Result := True;
JpgImage.Free;
end;
finally
ImgStream.Free;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
DownloadJPGToBitmap('http://irdelphi.250free.com/g/g2/a2/nature.jpg', Image1.Picture.Bitmap);
end;