Thema: Delphi WebCam - TVideoCap ?

Einzelnen Beitrag anzeigen

Nisbo

Registriert seit: 10. Mär 2005
191 Beiträge
 
Delphi 5 Standard
 
#9

Re: WebCam - TVideoCap ?

  Alt 18. Apr 2005, 13:25
CamAnzeige funktioniert jetzt, auch der Server als ServerSocket1 nimmt verbindungen an


Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     ServerSocket1.Active := false;
     ServerSocket1.Port := StrToIntDef(Edit4.Text,8888); // Port 8888 ist Standard
     try
        ServerSocket1.Active := true;
     except
        raise;
     end;

     if ServerSocket1.Active then
     begin
          // noch nichts
     end;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
   showmessage('Verbunden');
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
   showmessage('Verbindung getrennt.');
end;
wenn ich jetzt per Browser auf meine IP und Port 8888 verbinde erscheint auf die Message Verbunden bzw beim Trennen "Verbindung getrennt"

Jetzt stellt sich nur die Frage wie ich dem browser jetzt einen Frame von der Webcam schicke.
Dort nutze ich TJvAVICapture als Anzeige des WebCamBildes

Jemand eine Idee ?
Jens
  Mit Zitat antworten Zitat