盒子论坛 v2.1

使用NMUDP控件，不用流，如何传输图像？据我所知NMUDP的传输使用
procedure SendBuffer(Buff: array of char; length: integer);
如何把位图或其他图像放到Buff中呢？

----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/18 13:27:22

1楼：

不用流不好做，因为图片的编码算法是很复杂的
如果要按字符来串，就得知道图片的二进制对应字符是什么排列规则
当你发送后，要保证对方能根据这个规则正确重新排列！

所以：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, NMUDP;

type
  TForm1 = class(TForm)
    NMUDP1: TNMUDP;
    NMUDP2: TNMUDP;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    Label2: TLabel;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure NMUDP1DataSend(Sender: TObject);
    procedure NMUDP2DataReceived(Sender: TComponent; NumberBytes: Integer;
      FromIP: String; Port: Integer);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
strFile:String   ;
iHandle,iSize,iRead :longint;
pFile :Pchar    ;
begin
if(OpenDialog1.Execute) then
begin
  strFile:=OpenDialog1.FileName;
end;
try
begin
  iHandle:=FileOpen(strFile,fmOpenRead);
  iSize:=FileSeek(iHandle,0,2);
  FileSeek(iHandle,0,0);
  getmem(pFile ,iSize);
  iRead:=FileRead(iHandle,pFile^,iSize);
  NMUDP1.SendBuffer(pFile^,iSize);
  FileClose(iHandle);
end;
finally
begin
freemem(pFile);
end;
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
NMUDP2.RemoteHost:='127.0.0.1';
NMUDP1.RemoteHost:='127.0.0.1';
end;

procedure TForm1.NMUDP1DataSend(Sender: TObject);
begin
Label1.Caption:='Data Sent';
end;

procedure TForm1.NMUDP2DataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var
   iHandle,iRecv:longint;
  pFile :pchar;
  strFileName:String;
begin
Label2.Caption:='Data Receive';
try
begin
  if(SaveDialog1.Execute) then
   begin
    strFileName:=SaveDialog1.FileName;
   end;
  if(FileExists(strFileName))  then
   begin
    iHandle:=FileOpen(strFileName,fmOpenWrite);

   end
  else
   begin
    iHandle:=FileCreate(strFileName);
   end;
  getmem(pFile ,NumberBytes);
  NMUDP2.ReadBuffer(pFile^,NumberBytes);
  FileWrite(iHandle,pFile^,NumberBytes);
  FileClose(iHandle);
end;
finally
begin
  freemem(pFile);
end;
end;

end;

end.

----------------------------------------------

作者：

jackken (jackken)	★☆☆☆☆	-
	普通会员

2003/10/18 16:32:05

2楼：

叮叮？看到我眼都大了。看算法是把文件的指针给SendBuffer作参数吧。但bios仁兄在程序前面的那段话又是什么意思？所给的算法没涉及什么排列规则吧，还是我看漏了。另外还想请教，做网络通信程序怎么调试？只有一台机阿。是不是自己如上面那样做两个控件自发，自收，自己显示。
----------------------------------------------
-

信息

登陆以后才能回复