pclient.~pas

一个在dll中的通过UDP传送信息.rar

unit pclient;

interface

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


type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    NMUDP1: TNMUDP;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

type 
  Tsendstr=procedure(str:String;UDP1:TNMUDP);Far; stdcall;
  THandle=Integer;
implementation

{$R *.dfm}
//procedure sendstr(str:String;UDP1:TNMUDP);stdcall;External'init.dll';


procedure TForm1.BitBtn1Click(Sender: TObject);

begin
 // sendstr(Edit1.Text,NMUDP1);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  Handle:Thandle;
  sendstr:Tsendstr;
begin
  Handle := LoadLibrary('init.dll');
  try
    if Handle<>0 then
      begin
        @sendstr:=GetProcAddress(Handle,'sendstr');
        if @sendstr<>nil then
          begin
             sendstr(Edit1.Text,NMUDP1);
          end;  
      end;
  finally
    FreeLibrary(Handle);
  end;
end;

end.