線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1454
推到 Plurk!
推到 Facebook!

用NMStream傳送資料

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


發表:20
回覆:18
積分:7
註冊:2003-03-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-05-22 14:50:17 IP:211.78.xxx.xxx 未訂閱
Hello... 小弟用NMStream傳送連續圖檔卻發生一個問題 ESocketError 10038 Socket Operation On non-Socket 請問出了什麼錯呢?? 以下是我送資料和傳資料的程式.. 傳送資料... void __fastcall TForm1::Button1Click(TObject *Sender) { TMemoryStream *msBuf=new TMemoryStream; for (int argc=1;argc<=FileListBox1->Items->Count;argc ) { jpeg = new TJPEGImage; jpeg->LoadFromFile(FileListBox1->Directory "\\" IntToStr(argc) ".jpg"); jpeg->SaveToStream(msBuf); msBuf->Position=0; NMStrm1->Host = "192.168.10.148"; NMStrm1->FromName = "192.168.10.148"; NMStrm1->PostIt(msBuf); //NMUDP1->RemoteHost="192.168.10.148"; //NMUDP1->RemotePort=22; //NMUDP1->SendStream(msBuf); msBuf->Clear(); delete jpeg; } delete msBuf; } 接收資料 void __fastcall TForm1::NMStrmServ1MSG(TComponent *Sender, const AnsiString sFrom, TStream *strm) { msBuf->Position = 0; strm->Position = 0; msBuf->CopyFrom(strm,strm->Size); msBuf->Position = 0; jpeg->LoadFromStream(msBuf); Image1->Picture->Assign(jpeg); msBuf->Position = 0; strm->Position = 0; }
RaynorPao
版主


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-05-22 16:06:36 IP:203.73.xxx.xxx 未訂閱
引言: 小弟用NMStream傳送連續圖檔卻發生一個問題 ESocketError 10038 Socket Operation On non-Socket 請問出了什麼錯呢?? 以下是我送資料和傳資料的程式.. 傳送資料... void __fastcall TForm1::Button1Click(TObject *Sender) { TMemoryStream *msBuf=new TMemoryStream; for (int argc=1;argc<=FileListBox1->Items->Count;argc ) { jpeg = new TJPEGImage; jpeg->LoadFromFile(FileListBox1->Directory "\\" IntToStr(argc) ".jpg"); jpeg->SaveToStream(msBuf); msBuf->Position=0; NMStrm1->Host = "192.168.10.148"; NMStrm1->FromName = "192.168.10.148"; NMStrm1->PostIt(msBuf); //NMUDP1->RemoteHost="192.168.10.148"; //NMUDP1->RemotePort=22; //NMUDP1->SendStream(msBuf); msBuf->Clear(); delete jpeg; } delete msBuf; } 接收資料 void __fastcall TForm1::NMStrmServ1MSG(TComponent *Sender, const AnsiString sFrom, TStream *strm) { msBuf->Position = 0; strm->Position = 0; msBuf->CopyFrom(strm,strm->Size); msBuf->Position = 0; jpeg->LoadFromStream(msBuf); Image1->Picture->Assign(jpeg); msBuf->Position = 0; strm->Position = 0; }
paul67 你好:
(1)請問你傳送的每一個檔案大約有多大呢??
( >
// >>>>>>>>>>Host="192.168.16.152">FromName="192.168.16.151";
      NMStrm1->PostIt(ms);
      delete jpg;
      delete ms;
   }
}
(3)我只寫傳輸的部分,秀圖的部分就暫時不寫了
-- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
paul67
一般會員


發表:20
回覆:18
積分:7
註冊:2003-03-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-05-22 17:21:13 IP:211.78.xxx.xxx 未訂閱
感謝您回覆我這麼多次.. 我傳的圖檔大小都小於20K呀
RaynorPao
版主


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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-05-22 22:34:07 IP:61.221.xxx.xxx 未訂閱
引言: 感謝您回覆我這麼多次.. 我傳的圖檔大小都小於20K呀
paul67 你好:
(1)我已經試過每個檔案的大小為 563 KB,也是沒有問題的,不知道你的問題
   為何呢??
   測試環境:
   Server: Windows 2000 Server SP3, BCB 6.0, Update 4
   Client: Windows 2000 Server SP3, BCB 6.0, Update 4
(2)是否方便把你的 Project 上傳至「會員求助程式檔案上傳區」,幫你看看
   http://delphi.ktop.com.tw/forum.asp?FORUM_ID=97
-- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
系統時間:2024-03-29 20:45:56
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!