Webcam via ServerSocket streamen

jarhead_02

Hallo zusammen.

ich möchte gerne das Bild meiner Webcam, welche an einem Server angeschlossen ist, an einen Client streamen.

Habe folgende zwei Codes welche ich irgendwie zusammen führen möchte.

1. Webcam wird inizialisiert und auf einem Panel Angezeigt:

void Init_Cam(){
    HWND hWebcam;
	HWND hwnd = web_bild->Handle;    //Handel vom Panel -> darauf wird der Webcam Stream gelegt

	hWebcam = capCreateCaptureWindow("Capture Window", WS_CHILD | WS_VISIBLE,0, 0, web_bild->Width, web_bild->Height,hwnd, 0);

	SendMessage(hWebcam, WM_CAP_DRIVER_CONNECT,0, 0);
	SendMessage(hWebcam, WM_CAP_SET_SCALE,1, 0);
	SendMessage(hWebcam, WM_CAP_SET_PREVIEWRATE,10,0);
	SendMessage(hWebcam, WM_CAP_SET_PREVIEW,1,0);
}

2. Server Socket wird Initialisiert und verschickt "Text"

void Init_Socket(){
    ServerSocket1->Port = 9999;
	ServerSocket1->Open();
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
	ServerSocket1->Socket->Connections[0]->SendText(Edit2->Text);
}

Mir ist klar das es damit direkt nicht geht. Aber ich hatte dabei an die Funktion:

ServerSocket1->Socket->Connections[0]->SendStream( TStream* )

gedacht

Kann das damit irgendwie funktionieren? oder hat jemand noch eine andere Idee?