從client端傳送指令給Server端,做錄影和停止錄影的功能,server端並沒有動作 |
尚未結案
|
darkangle
一般會員 發表:1 回覆:1 積分:0 註冊:2005-05-27 發送簡訊給我 |
想請教各位大大, 如果要從client端傳送指令給Server端,做錄影和停止錄影的功能,我做出來,指令可傳到server端,他也回傳值他有執行錄影的功能,可是從client端按下去,只看server端螢幕,閃了一下,並沒有開始錄影,這是什麼原因,麻煩各位大大幫我解答一下 Server 端
//---------------------------------------------------------------------------
void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
{ AnsiString szCommand=AThread->Connection->ReadLn( EOL , 300 ,1000);
if(szCommand=="StartRecord")
{
//ShowMessage("開始錄影");
Sleep((unsigned)1000);
VideoGrabber1->StartAVICapture();
AThread->Connection->WriteLn("Start Record");
}
else if(szCommand=="StopRecord")
{
//ShowMessage("停止錄影");
Sleep((unsigned)500);
VideoGrabber1->StopAVICapture();
Sleep((unsigned)2000);
AThread->Connection->WriteLn("Stop Record");
}
} //Client 傳送指令給Server端開始錄影
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
double TakeTime= double( Now());
if(IdTCPClient1->Connected())
{
AnsiString ReceiveTEXT="收不到回饋信號"; try
{
IdTCPClient1->WriteLn("StartRecord");
ReceiveTEXT=IdTCPClient1->ReadLn( EOL , 300 ,1000);
}catch(...){;} TakeTime= double( Now()) - TakeTime ;
AnsiString strTime=FloatToStr(TakeTime*24*60*60*1000);
if( strTime.Length() >= 6 )
strTime=strTime.SubString(1,5);
StatusBar1->Panels->Items[0]->Text=strTime "ms";
Sleep((unsigned)1000);
ShowMessage(ReceiveTEXT); }
else
ShowMessage("無法連線");
}
//---------------------------------------------------------------------------
//Client 傳送指令給Server端停止錄影
void __fastcall TForm1::Button9Click(TObject *Sender)
{
double TakeTime= double( Now()); if(IdTCPClient1->Connected())
{
AnsiString ReceiveTEXT="收不到回饋信號"; try
{ IdTCPClient1->WriteLn("StopRecord");
ReceiveTEXT=IdTCPClient1->ReadLn( EOL , 300 ,1000); }catch(...){;} TakeTime= double( Now()) - TakeTime ;
AnsiString strTime=FloatToStr(TakeTime*24*60*60*1000);
if( strTime.Length() >= 6 )
strTime=strTime.SubString(1,5);
StatusBar1->Panels->Items[0]->Text=strTime "ms";
Sleep((unsigned)2000);
ShowMessage(ReceiveTEXT); }
else
ShowMessage("無法連線");
}
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |