全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1083
推到 Plurk!
推到 Facebook!

UDP畫面傳輸問題

答題得分者是:RaynorPao
8653107
一般會員


發表:13
回覆:4
積分:3
註冊:2003-10-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-01-05 19:39:39 IP:140.118.xxx.xxx 未訂閱
傳送端: { const int ThreshHold=2048; Graphics::TBitmap *bmp1=new Graphics::TBitmap; TMemoryStream *ms1=new TMemoryStream; TJPEGImage *jpg=new TJPEGImage; char *Buffer=new char[ThreshHold]; IdUDPClient1->Host=Edit1->Text; IdUDPClient1->Port=4000; bmp1->LoadFromFile("C:\\123.bmp "); jpg->Assign(bmp1); jpg->CompressionQuality=20; jpg->Compress(); jpg->SaveToStream(ms1); ms1->Read(Buffer,ThreshHold); IdUDPClient1->SendBuffer(ms1,2048); } 接收端: __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { IdUDPServer1->DefaultPort=4000; IdUDPServer1->Active=true; } void __fastcall TForm1::IdUDPServer1UDPRead(TObject *Sender, TStream *AData, TIdSocketHandle *ABinding) { Graphics::TBitmap *bmp1=new Graphics::TBitmap; TMemoryStream *ms1=new TMemoryStream; TJPEGImage *jpg=new TJPEGImage; jpg->LoadFromStream(ms1); jpg->CompressionQuality=100; Image1->Picture->Assign(jpg); delete jpg; } //-------------------------------------------------------------------- 程式碼如上,我從c槽讀取bmp要傳到client,但不能傳,是哪裡錯了呢,請指教.. 發表人 - taishyang 於 2004/01/05 19:48:45
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-02-01 03:07:05 IP:61.221.xxx.xxx 未訂閱
引言: 傳送端: { const int ThreshHold=2048; Graphics::TBitmap *bmp1=new Graphics::TBitmap; TMemoryStream *ms1=new TMemoryStream; TJPEGImage *jpg=new TJPEGImage; char *Buffer=new char[ThreshHold]; IdUDPClient1->Host=Edit1->Text; IdUDPClient1->Port=4000; bmp1->LoadFromFile("C:\\123.bmp "); jpg->Assign(bmp1); jpg->CompressionQuality=20; jpg->Compress(); jpg->SaveToStream(ms1); ms1->Read(Buffer,ThreshHold); IdUDPClient1->SendBuffer(ms1,2048); } 接收端: __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { IdUDPServer1->DefaultPort=4000; IdUDPServer1->Active=true; } void __fastcall TForm1::IdUDPServer1UDPRead(TObject *Sender, TStream *AData, TIdSocketHandle *ABinding) { Graphics::TBitmap *bmp1=new Graphics::TBitmap; TMemoryStream *ms1=new TMemoryStream; TJPEGImage *jpg=new TJPEGImage; jpg->LoadFromStream(ms1); jpg->CompressionQuality=100; Image1->Picture->Assign(jpg); delete jpg; } //-------------------------------------------------------------------- 程式碼如上,我從c槽讀取bmp要傳到client,但不能傳,是哪裡錯了呢,請指教..
8653107 你好: 請參考以下的連結文章 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
系統時間:2024-05-03 18:48:13
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!