盒子论坛 v2.1

客户端的界面是：
两个文本框用来填写server的IP和端口号，三个按钮：“连接”、“发送”、“断开”，一个文本框填写发送的文本（如：aaa），一个文本框显示接受到的服务器应答文本（如：bbb)

可以将代码发到我的邮箱中
artgh@sohu.com
谢谢！

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

作者：

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

2003/10/19 15:41:13

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.

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

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/10/19 15:55:47

2楼：

首页这样的例子搜索就有。
----------------------------------------------
维护世界和平，共创美好盒子。

信息

登陆以后才能回复