Рекламный баннер

[Fahman]

Сообщение от doktor255

procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TMemoryStream;
begin
  stream:= TmemoryStream.Create;
  IdHttp1.Get('http://..', stream);
  Stream.Position := 0;
  Image1.Picture.Graphic.LoadFromStream(Stream);
end;

P. S. Учись задавать вопросы, и не груби людям, которые указывают на твои косяки.

А можете обьяснить что тут и как?

[doktor255]

procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TMemoryStream; // поток
begin
  stream:= TmemoryStream.Create; // инициализация потока
  IdHttp1.Get('http://..', stream); // При помощи компонента TIdHttp загружаем по ссылке картинку в поток
  Stream.Position := 0; // устанавливаем позицию потока на ноль
  Image1.Picture.Graphic.LoadFromStream(Stream); // загружаем изображение их потока в Image;
  Stream.Free;// забыл написать уничтожение потока.
end;

[Fahman]

http://savepic.org/4877239.png

[doktor255]

Fahman А чего ты ожидал, когда игнорировал мои сообщения и бесился? Я ещё в первом посте написал. Парсинг индивидуален, а раз нет задачи, нет решения. Слушать надо, а не психи показывать.

[Fahman]

Сообщение от doktor255

Fahman А чего ты ожидал, когда игнорировал мои сообщения и бесился? Я ещё в первом посте написал. Парсинг индивидуален, а раз нет задачи, нет решения. Слушать надо, а не психи показывать.

Что значит нет задачи? Я же сказал нужно спарсить рекламный баннер 468x60 и вывести в Image

[doktor255]

А формат рекламного банера ты указал? А саму страницу ты дал? Мозги подключай. Уже пора.
P.S. А вот размер банера глубоко до одного места. Image тянется по размеру картинки. Нужную информацию не предоставляешь, а не нужную наоборот.

[Fahman]

Сообщение от doktor255

А формат рекламного банера ты указал? А саму страницу ты дал? Мозги подключай. Уже пора.
P.S. А вот размер банера глубоко до одного места. Image тянется по размеру картинки. Нужную информацию не предоставляешь, а не нужную наоборот.

в Delphi Xe3 Image поддерживает вск формы изображений.

[Fahman]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, IdAntiFreezeBase, IdAntiFreeze,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, pngimage;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 html:WideString;
 Stream:TStream;
 png:TPNGObject;
begin
   try
    png:=TPNGObject.Create;
    html:=IdHTTP1.Get('http://freelance.ru/registration/?cmd=agree');
    Delete(html,1,pos('<td><img src="',html)+length('<td><img src="'));
    Delete(html,pos('" id',html),length(html));
    Stream:=TStringStream.Create(IdHTTP1.Get('http://freelance.ru/'+html));
    png.LoadFromStream(Stream);
    Image1.Picture.Assign(png);
    Stream.Free;
    png.Free;
   except
    on e:Exception do
     begin
      png.Free;
      Stream.Free;
     end;
   end;
end;

end.

[doktor255]

По прежнему не вижу задачи. Кстати это не компонент а процедура, опять же заточенная под конкретную задачу. Такое ощущение что ты меня не слышишь.

[Fahman]

http://my-hack.vv.si/1.php

вот от сюда нужна спарсить баннер