傳輸問題...............影像 |
答題得分者是: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 --
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |