Bild mittels TServerSocket für Browser bereitstellen

[Nisbo]

OK habe es mittels der Indy-Komponente TidHTTPServer hinbekommen, für alle die auch danach suchen der Code schaut jetzt so aus:

Delphi-Quellcode:

// Server starten
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     IdHTTPServer1.Active := false;
     IdHTTPServer1.DefaultPort   := StrToIntDef(Edit4.Text,8888); // Port 8888 ist Standard
     try
        IdHTTPServer1.Active := true;
     except
        raise;
     end;

     if IdHTTPServer1.Active then
     begin
       ToolButton13.Enabled      := false;
       ToolButton12.Enabled      := true;
       StatusBar1.Panels[1].Text := 'Server ist: ONLINE an Port ' + Edit4.Text;
     end;
end;


// Server beenden
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
     try
        IdHTTPServer1.Active := false;
     except
       raise;
     end;

     if not IdHTTPServer1.Active then
     begin
       ToolButton13.Enabled      := true;
       ToolButton12.Enabled      := false;
       StatusBar1.Panels[1].Text := 'Server ist: OFFLINE';
     end;
end;


// Bild liefern
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var Stream  : TMemoryStream;
begin
    Stream := TMemoryStream.Create;
    Stream.LoadFromFile(programmverzeichnis + '\testbild.jpg');
    Stream.Seek(0,soFromBeginning);

    AResponseInfo.ContentType:='Content-Type: image/jpeg';
    AResponseInfo.ContentStream := Stream;
end;

jetzt muß ich es nur noch hinbekommen von der TJvAVICapture ein einzelbild einzufangen.
hat da jemand noch eine Idee ?