init.dpr

来自「一个在dll中的通过UDP传送信息.rar」· DPR 代码 · 共 36 行

library init;


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


  //procedure sendstr(str:String;UDP1:TNMUDP;);

{$R *.res}

procedure sendstr(str:String;UDP1:TNMUDP);stdcall;
var
  tmpstr:String;
  MyStream1: TMemoryStream;
begin
  tmpstr:=str;

    //NMUDP1.ReportLevel := Status_Basic;
   // NMUDP1.RemoteHost := FromIP;
  MyStream1 := TMemoryStream.Create;
  try
      MyStream1.Write(TmpStr[1], Length(TmpStr));
      UDP1.SendStream(MyStream1);
  finally
    MyStream1.Free;
  end;

end;
exports
 sendstr;
begin

end.