视频捕获和传输(含源码)

procedure TClientForm.Button2Click(Sender: TObject); begin if edtIPAddress.Text '' then begin TCPClient.Host := edtIPAddress.Text; try if not TCPClient.Connected then TCPClient.Connect; except ShowMessage('连接错误!'); end; end; end;