idHttp Server - Bild zur verfügung stellen ??

[Assun]

Puh ! Also ich habe gestern ewig im Source gesucht, aber nix gefunden, dass ich brauchen könnte

dann habe ich ne weile rumexperementiert. schließlich kam das heraus :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
     IdHTTPServer1.Active := false;
     IdHTTPServer1.DefaultPort   := 8888; // Port 8888 ist Standard
     try
        IdHTTPServer1.Active := true;
     except
        raise;
     end;

     if IdHTTPServer1.Active then
     begin

       label1.Caption := 'Server ist: ONLINE an Port 8888';
     end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     try
        IdHTTPServer1.Active := false;
     except
       raise;
     end;

     if not IdHTTPServer1.Active then
     begin
      Label1.Caption := 'Server ist: OFFLINE';
     end;
end;

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Var
  Stream: TFilestream;
  TheString : String;
  begin

if ARequestInfo.Document = '/' then begin
IF  fileexists('test.jpg') = true then ARequestInfo.Document := 'test.jpg';

end;

Stream := TfileStream.Create(ARequestInfo.Document, fmOpenRead or fmShareDenyWrite );
AResponseInfo.ContentStream := Stream;

setlength(TheString, stream.size);
stream.Read(TheString[1], stream.size);
end;

Allerdings geht das nur wenn ich offline bin !!! sobald ich online bin, wird das Bild nur im Quelltext dargestellt (über LocalIp oder iNetIP ist gleich)

kann mir da jemand weiterhelfen ?