傳輸問題...............影像 |
|
答題得分者是：RaynorPao
|
|
nctucontrol
一般會員   發表：2 回覆：2 積分：0 註冊：2003-03-11 發送簡訊給我 |
為什麼會這樣呢？ 傳送端：
Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap();
Bitmap1->LoadFromFile("C:\\WIN98SE\\Desktop\\Two_CCD\\picture\\Module2_L.bmp "); //轉成jpg的格式
TJPEGImage *jpg = new TJPEGImage();
jpg->PixelFormat = jf8Bit;
jpg->CompressionQuality = 10;
jpg->Assign((TPersistent*)Bitmap1);
jpg->Compress(); Image1->Picture->Bitmap->Assign(jpg);
ClientSocket1->Socket->SendBuf(jpg,4000);
Edit3->Text=IntToStr(sizeof(jpg)); delete jpg;
delete Bitmap1; 接收端：
TJPEGImage *jpeg = new TJPEGImage;
Socket->ReceiveBuf(jpeg,4000);
jpeg->SaveToFile ("jpg.jpg") ;
delete jpeg; 嗚嗚嗚.......可以幫我看一下嗎？
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 為什麼會這樣呢？ 傳送端： Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap(); Bitmap1->LoadFromFile("C:\\WIN98SE\\Desktop\\Two_CCD\\picture\\Module2_L.bmp "); //轉成jpg的格式 TJPEGImage *jpg = new TJPEGImage(); jpg->PixelFormat = jf8Bit; jpg->CompressionQuality = 10; jpg->Assign((TPersistent*)Bitmap1); jpg->Compress(); Image1->Picture->Bitmap->Assign(jpg); ClientSocket1->Socket->SendBuf(jpg,4000); Edit3->Text=IntToStr(sizeof(jpg)); delete jpg; delete Bitmap1; 接收端： TJPEGImage *jpeg = new TJPEGImage; Socket->ReceiveBuf(jpeg,4000); jpeg->SaveToFile ("jpg.jpg") ; delete jpeg; 嗚嗚嗚.......可以幫我看一下嗎？ nctucontrol 你好: (1)如果使用 TServerSocket, TClientSocket 來傳輸資料，是不可以一次傳太 大的封包的(最好不要超過 1.5K)，必須先做切割的動作，再依次將封包傳出 (2)如果你想要一次就傳輸一個檔案的內容，可以使用 TNMStrm, TNMStrmServ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26718-- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
發表時間：2003-03-13 14:15:00
IP:163.28.xxx.xxx 未訂閱
系統時間：2024-04-25 16:13:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |