上一篇:Delphi保存网页中的图片
下一篇:TPngImage V1.43 For Delphi

ADSL拨号控件—DLL版

发布于: 2012-12-15 9:44:50   |  发布在: Delphi第三方组件   |  点击:

使用TDialUp组件制作的一个DLL控件,该控件封装 һϢϵͳ

r />
procedure TForm1.ReceiveResult(var t:TWmCopyData);
var
  iCode: Integer;
  str: String;
begin
  iCode := t.From; //返回代码
  str := StrPas(t.CopyDataStruct^.lpData); //接受数据并显示。
  case iCode of
    -2: ;//用户取消
    -1: ExtractStrings(['|'], ['|'], PChar(str), ComboBox1.Items);//获取连接列表
     0: ;//拨号成功,返回值为IP
  else
    //拨号出错
  end;
  Memo1.Text := str;
  Edit1.Text := Format('返回代码:%d',[iCode]); 
end;


附件:dial_dll.rar

ADSL拨号