delphi xe7 IdHTTPServer1 перехват картинок изображений

[nobobic]

Всем привет помогите исходником как перехватить изображения?
пример исходный код www/страницы скопировал и ставил в мемо все показывает кроме изображений =(

unit Unit1;

interface

uses
  Windows, winsock, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Vcl.Menus, Vcl.StdCtrls, IdBaseComponent, IdComponent,
  IdCustomTCPServer, IdTCPServer, IdTCPConnection, IdTCPClient,
  IdCustomHTTPServer, IdHTTPServer, IdContext, StrUtils;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    IdHTTPServer1: TIdHTTPServer;
    Jxbcnbnm1: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure IdHTTPServer1CommandGet(AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
    procedure Jxbcnbnm1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function LocalIP: string;
type
  TaPInAddr = array [0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: array [0..63] of Ansichar;
  i: Integer;
  GInitData: TWSADATA;
begin
  WSAStartup($101, GInitData);
  Result := '';
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(Buffer);
  if phe = nil then
    Exit;
  pptr := PaPInAddr(phe^.h_addr_list);
  i := 0;
  while pptr^[i] <> nil do
  begin
    Result := StrPas(inet_ntoa(pptr^[i]^));
    Inc(i);
  end;
  WSACleanup;
end;

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
try
    AResponseInfo.ContentType := 'text/html; charset=utf-8';
        AResponseInfo.ContentType:='Content-Type: text/plain';

     AResponseInfo.ContentText := memo1.Text;
 except
    MessageBox(handle,'Загрузить страницу не удалось.','Внимание',$30);
 end;
end;

procedure TForm1.Jxbcnbnm1Click(Sender: TObject);
begin
memo1.Clear;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
if Memo1.Text='' then Memo1.ScrollBars:=ssNone//если пусто, нет прокрутки
else if Memo1.Lines.Count>7 then Memo1.ScrollBars:=ssboth;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
IdHTTPServer1.Active := false;
     IdHTTPServer1.DefaultPort:= 80;
     try
        IdHTTPServer1.Active := true;
     except
        raise;
     end;
     if IdHTTPServer1.Active then
     begin
       memo1.lines.add(LocalIP+': Сервер запущен');
     end;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
try
        IdHTTPServer1.Active := false;
     except
       raise;
     end;
     if not IdHTTPServer1.Active then
     begin
      memo1.lines.add(LocalIP+': Сервер остановлен');
     end;
end;

end.

[Человек_Борща]

А изображения и не будут показываться, у вас нет этих файлов на диске по указанным путям.
Используйте отладчик в браузере. чтобы видеть откуда пытается качать картинки страница, полученная из самописного сервера. Подкиньте из туда, и увидите что браузер откроет.