無法正常connect !! |
答題得分者是:RaynorPao
|
clc
一般會員 發表:13 回覆:4 積分:3 註冊:2003-07-31 發送簡訊給我 |
我的程式無法connect,請各位大大幫我看一下好嗎? server 端(送出Stream): void __fastcall TForm1::Button4Click(TObject *Sender)
{
IdTCPServer1->DefaultPort=5050;
IdTCPServer1->Active = true;
Button4->Enabled = false;
StatusBar1->SimpleText="Listening";
}
//--------------------------------------------------------------------------- void __fastcall TForm1::IdTCPServer1Connect(TIdPeerThread *AThread)
{
capSetCallbackOnFrame( hWndC, xcapFrameCallbackProc );
capGrabFrame( hWndC );
capSetCallbackOnFrame( hWndC, NULL ); // disable a previously installed callback function
capCaptureStop( hWndC );
capPreview( hWndC, true ); StatusBar1->SimpleText="Connecting"; JPGpic1->PixelFormat=jf8Bit;
JPGpic1->CompressionQuality = 20; // 設定圖像解析度(檔案大小)
JPGpic1->Assign((TPersistent*)Bitmap1);
JPGpic1->Compress(); JPGStream->Clear();
JPGpic1->SaveToStream(JPGStream);
delete Bitmap1;
delete JPGpic1; AThread->Connection->WriteStream( JPGStream, true, true );
JPGStream->Clear();
} Client 端: void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdTCPClient1->Host=IPadd->Text;
IdTCPClient1->Port=5050;
IdTCPClient1->Connect();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdTCPClient1Connected(TObject *Sender)
{
Button1->Enabled=false;
StatusBar1->SimpleText="Connecting";
}
//--------------------------------------------------------------------------- void __fastcall TForm1::IdTCPClient1WorkBegin(TObject *Sender,
TWorkMode AWorkMode, const int AWorkCountMax)
{
Bitmap1->Assign(Form1->Image1->Picture); IdTCPClient1->ReadStream( RsltStream , -1 , false );
RsltStream->Position=0;
JPGpic1->LoadFromStream(RsltStream);
Refresh(); Bitmap1->Assign(JPGpic1);
RsltStream->Clear();
Form1->Image1->Canvas->Draw(0,0,Bitmap1);
Image1->Refresh();
}
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 我的程式無法connect,請各位大大幫我看一下好嗎? server 端(送出Stream): void __fastcall TForm1::Button4Click(TObject *Sender) { IdTCPServer1->DefaultPort=5050; IdTCPServer1->Active = true; Button4->Enabled = false; StatusBar1->SimpleText="Listening"; } //--------------------------------------------------------------------------- void __fastcall TForm1::IdTCPServer1Connect(TIdPeerThread *AThread) { capSetCallbackOnFrame( hWndC, xcapFrameCallbackProc ); capGrabFrame( hWndC ); capSetCallbackOnFrame( hWndC, NULL ); // disable a previously installed callback function capCaptureStop( hWndC ); capPreview( hWndC, true ); StatusBar1->SimpleText="Connecting"; JPGpic1->PixelFormat=jf8Bit; JPGpic1->CompressionQuality = 20; // 設定圖像解析度(檔案大小) JPGpic1->Assign((TPersistent*)Bitmap1); JPGpic1->Compress(); JPGStream->Clear(); JPGpic1->SaveToStream(JPGStream); delete Bitmap1; delete JPGpic1; AThread->Connection->WriteStream( JPGStream, true, true ); JPGStream->Clear(); } Client 端: void __fastcall TForm1::Button1Click(TObject *Sender) { IdTCPClient1->Host=IPadd->Text; IdTCPClient1->Port=5050; IdTCPClient1->Connect(); } //--------------------------------------------------------------------------- void __fastcall TForm1::IdTCPClient1Connected(TObject *Sender) { Button1->Enabled=false; StatusBar1->SimpleText="Connecting"; } //--------------------------------------------------------------------------- void __fastcall TForm1::IdTCPClient1WorkBegin(TObject *Sender, TWorkMode AWorkMode, const int AWorkCountMax) { Bitmap1->Assign(Form1->Image1->Picture); IdTCPClient1->ReadStream( RsltStream , -1 , false ); RsltStream->Position=0; JPGpic1->LoadFromStream(RsltStream); Refresh(); Bitmap1->Assign(JPGpic1); RsltStream->Clear(); Form1->Image1->Canvas->Draw(0,0,Bitmap1); Image1->Refresh(); }clc 你好: 你的程式流程好像有問題,請先參考以下這個範例的程式流程
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
clc
一般會員 發表:13 回覆:4 積分:3 註冊:2003-07-31 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |