無法正常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 發送簡訊給我 |
發表時間：2003-08-20 00:19:44
IP:140.118.xxx.xxx 未訂閱
系統時間：2024-05-04 19:54:59
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |