這程式是用BCB寫的,目的是想做成類似Netmeeting的視訊聊天. 程式功能是由Server端開啟攝影機 而Client端抓取Server端的畫面.用的是UDP傳送 程式架構不怎麼好,因為是拼拼湊湊而成的 所以卡住了,不知道該如何做起 我希望能把影像以及傳輸的部分改進,希望能幫我個忙 1.在存取單張圖的部分:我只能把圖存成BMP檔,若要存成JPG我要怎麼做呢？ 是否要寫壓縮?...但是這方面我不懂....可否能幫我? 2.影像傳輸的部分: (1)因為我只能擷取到Bmp檔,而無法轉成Jpg以利傳輸 所以造成傳輸速度不盡理想. (2)我請教過別人,他說我可以把要傳的畫面分割成好 幾等份,然後將前後所擷取到的畫面做判斷,若畫面 有變動的就傳至Client沒有變動的則可以不需傳. 這個觀念我是懂了,但是實在是不知該怎麼放到這 程式裡.... 希望有前輩能教導我並且實行它,......萬分感激～ 發表人 - ufstep 於 2002/05/07 16:18:17

附加檔案：00017992_servermain.txt

本站有一抓影像的範例可壓縮成JPG檔,還可指定壓縮率, 但是用Delphi寫的,您可參考看看 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=17871    ～～～Delphi K.Top網站總管～～～

------
～～～Delphi K.Top網站總管～～～

請教一下,Delphi和BCB在程式的描述方面有哪些地方差異性是比較大的？？？ 因為某些敘述我並沒有在BCB中看過

引言: 請教一下,Delphi和BCB在程式的描述方面有哪些地方差異性是比較大的？？？ 因為某些敘述我並沒有在BCB中看過

在本站的技術文章中有兩篇(上下集)介紹如何將C 程式轉為Pascal語法, 您可參考看看! http://delphi.ktop.com.tw/forum.asp?FORUM_ID=108 ～～～Delphi K.Top討論區站長～～～

好,我試著學習看看,謝謝～！

引言: 好,我試著學習看看,謝謝～！

加油!您的專題很有意思喔! 真得不行再來發問吧! ～～～Delphi K.Top網站總管～～～

1. 請問一下delphi的那個影像範例程式也是先把CCD抓到的圖存成BMP 再壓成Jpeg嗎? 2. 壓縮的部份是自己寫的嗎？ 還是delphi有TJpeg的元件?? 因為我沒有看到類似Jpeg Library之類的lib 那可否再請問一下壓縮的部分是寫在哪個檔案(檔案名稱)內呢? (哇～！.....自己寫壓縮會不會太困難了點阿???.....) 謝謝！～～ 發表人 - ufstep 於 2002/04/17 22:51:23

引言: 1. 請問一下delphi的那個影像範例程式也是先把CCD抓到的圖存成BMP 再壓成Jpeg嗎? 2. 壓縮的部份是自己寫的嗎？ 還是delphi有TJpeg的元件?? 因為我沒有看到類似Jpeg Library之類的lib 那可否再請問一下壓縮的部分是寫在哪個檔案(檔案名稱)內呢? (哇～！.....自己寫壓縮會不會太困難了點阿???.....)

1.請您參考該程中的一個片段(UCapVideo.pas)

var Jpg1:TJpegImage;
begin
   SaveBMPFile('c:\_TEMP_.BMP');
   Image2.Picture.LoadFromFile('c:\_TEMP_.BMP');
   image2.Canvas.Font.size:=9;
   image2.Canvas.Font.color:=clRed;
   image2.Canvas.TextOut(0,0,GetTodayDate '(' GetTodayWeek ') ' GetTodayTime);
   Jpg1 := TJpegImage.Create;
   jpg1.Assign(Image2.Picture.Graphic);
   jpg1.CompressionQuality := spinedit1.value;
   jpg1.SaveToFile('C:\CapVideo.JPG');
   jpg1.free;
   modalresult:=mrOK;
end;

以上程式會將BMP轉為JPG 2.Delphi有提供TJpeg的物件(非元件),只要程式中加上 USES jpeg; 就可以處JPG了 所謂壓縮都是物件TJpegImage自己自動處理的,我們不用傷腦筋! 但轉為BCB就要您傷腦筋了! ～～～Delphi K.Top網站總管～～～

不好意思，我是來插花的。 看到這位大大的專題，感覺和我現在碰到的專題很像。 我現在是利用> > ========================