請問IdUDPClient1.SendBuffer錯誤 |
尚未結案
|
devildemon
一般會員 發表:2 回覆:1 積分:0 註冊:2009-12-19 發送簡訊給我 |
我的問題是IdUDPClient1.SendBuffer資料送不出去及IdUDPServer1UDP.Read接收不到資料
為什麼 我的錯誤在那 他沒顯示錯誤訊息 請各位高手幫忙 謝謝 [code delphi] procedure TForm5.Button2Click(Sender: TObject); var vSm : TMemoryStream ; begin IdUDPClient1.Active := True; IdUDPClient1.Connect; vSm := TMemoryStream.Create; try Image1.Picture.Bitmap.SaveToStream(vSm); vSm.Position:=0; //image2.Picture.Bitmap.LoadFromStream(vSm); IdUDPClient1.SendBuffer('192.168.0.2',6789,vSm.Memory); //為什麼不能接收到資料 Memo1.Lines.Add('======' inttostr(vSm.Size)); finally vSm.Free; end; end; procedure TForm5.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes; ABinding: TIdSocketHandle); var nuStream: TMemoryStream; //img : TBitmap; begin nuStream := TMemoryStream.Create; try nuStream.Write(AData,Length(AData)); //img := TBitmap.Create; nustream.position := 0; //img.LoadFromStream(nuStream); image2.Picture.Bitmap.LoadFromStream(nuStream); //img.Free; Memo1.Lines.Add('&&&&&' inttostr(nuStream.Size)); finally nuStream.free; end; [/code] 編輯記錄
devildemon 重新編輯於 2010-08-05 12:35:33, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |