Здраствуйте Уважаемые програмисты,подскажите пожалусто как можно получить картинку с сайта с кодом подтверждения просто чтоб в моей проге она отображалась в Image.Спасибо

делаешь get в stream, затем Image.LoadFromStream...

Примерчик бы,если можно

ishimcity, http://drkb.ru 

Это я все сделал но картинка меняется постоянно.А у меня показвает только одну,как из этой ситуации выдти?

код покажи.

Скорее всего у тебя прокся кэширует.
Нужно делать запрос с указанием 'no-cache'.

Вот мой код.

var
cod:TMemoryStream;
begin
Cod:=TMemoryStream.Create ;
idHTTP.Get('http://mmsuser.u-tel.ru/ctrlimg/?c=1411441260',cod);
cod.SaveToFile('C:\cod.jpg');

код сохраняется на диск чтоб потом загрузить в IMAGE.

вопще код получаю с http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend
но проблема в том что код картинки и адрес (http://mmsuser.u-tel.ru/ctrlimg/?c=1411441260) постоянно меняется,как можно его пропарсить

Правильно, что у тебя одна и таже картинка показывается. Ты же сам запрашиваешь один и тот-же url для картинки. Для того, чтобы были разные картинки, надо скачать страницу и выдернуть оттуда новый урл...

О как !!!! А примерчик можно?
я так понял что нужно воспользоватся WebBrowser , я с ним мало знаком, каким образом вытянуть оттуда картинку.

вот немного разобрался

var
Flag: OleVariant;
begin
flag := navNoReadFromCache;
webbrowser1.Navigate('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend',flag);
end;


странички отображаются,картинки некэшируются,каждый раз новая, и чего дальше?
как мне ее взять оттуда?

и еще вот нашел пример а как его реализовать

uses ClipBrd;
...
procedure TForm1.LoadImage(N:integer);
var body, imgs, controlRange: olevariant;
begin
 body := WebBrowser1.OleObject.document.body;
 imgs := WebBrowser1.OleObject.document.images.item(N);//нужный img
 controlRange := body.createControlRange;
 controlRange.add(imgs);// вместо imgs можно сразу вставить WebBrowser1.OleObject.document.images.item(N)
 controlRange.execCommand('Copy', False, EmptyParam);//копируем
 if ClipBoard.HasFormat(CF_BITMAP) then begin
 Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);//вставляем
 Clipboard.Clear;//по желанию чистим буфер...
 end;
end;
...
initialization
 OleInitialize(nil);

finalization
 OleUninitialize;

end.

ой-ой... куда то ты не в ту сторону полез
скачиваешь страничку тем же idHTTP.Get, потом парсишь, выдираешь нужный url, и вперед

Модератор: и кнопочкой "Код" пользоваться не забывай

MetalFan
Извени,но чего то я видимо недогоняю,мнеб примерчик,если можно.
PS. Вот самое интересное что такое "ПАРСИНГ" немогу понять


Это сообщение отредактировал(а) ishimcity - 7.8.2007, 09:51