【结帖】dll 引入到x3平台报错**

jiahaiminghr

把你编译的dll和调用方法再发一下，上面那个好像有问题！

sun840330

有什么问题啊??
这个就是编译通过的dll啊,可以通过啊,也可以在delphi里被调用的.
在x3里的调用方法:
spacecheck.CheckUrl.CheckedUrl('www.baidu.com',50000);
在delphi里的调用方法:
unit Unit2;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    //function CheckUrl(url: string;var AResponseText :String;TimeOut: integer = 50000 ): boolean;
  public
    function  ShowConnectData(str:String):string;
    { Public declarations }
  end;

var
  Form1: TForm1;
  Function  MyMax(a,b:integer):integer;stdcall;external 'MyTestDll.dll';
  Function  CheckedUrl(url: string;TimeOut: integer = 50000): integer;stdcall;external 'project1.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     ShowMessage(inttostr(MyMax(10,20)));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   Str:string;

begin
      Str:= inttostr(CheckedUrl('http://211.68.79.47:8081',50000));
      memo1.Text:=ShowConnectData(Str);
end;
end.

sun840330

麻烦了,看看哪里有问题,还需要什么文件,我在给你传上去

sun840330

你可以把代码拷一下,在delphi上试一下,可以通过的.

jiahaiminghr

你的附件我下不了，没法试验。

jiahaiminghr

再给一个！

sun840330

在delphi里建个dll你把代码拷过去不就行了,再调用看一下不就行了吗,谢谢

sun840330

我再把包给你发一次把

sun840330

看看这回行吗??

sun840330

等待中!!!up!!iup!!1