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 ?