緊急求教,在VB里怎樣調用Delphi寫的dll?

[yxh_bear]

我用Delphi寫的dll,
請問在VB里,怎樣調用,
它報錯說,約定錯誤,
請幫忙告訴我.
謝謝!

[王集鹄]

//对于Delphi Dll中不能用string做接口
//看看我的Dll
library PicturesPr;

uses
SysUtils,
Classes,
Windows,
Forms,
PictureUnit in 'PictureUnit.pas' {FormPicture},
FunctionUnit in 'FunctionUnit.pas';

{$R *.RES}

var
V_FileName: string; //图形文件名
V_OnShowForm: TNotifyEvent; //显示窗体的事件
V_OnCloseForm: TNotifyEvent; //关闭窗体的事件

procedure SetOnShowForm(mOnShowForm: TNotifyEvent); stdcall;
begin
V_OnShowForm := mOnShowForm;
end;

procedure SetOnCloseForm(mOnCloseForm: TNotifyEvent); stdcall;
begin
V_OnCloseForm := mOnCloseForm;
end;

function GetFileName: PChar; stdcall;
begin
Result := PChar(V_FileName);
end;

procedure SetFileName(mFileName: PChar); stdcall;
begin
V_FileName := string(mFileName);
end;

procedure ExeFormPicture; stdcall;
var
vFileName: TFileName;
begin
vFileName := TFileName(V_FileName);
DoFormPicture(vFileName, V_OnShowForm, V_OnCloseForm);
V_FileName := PChar(vFileName)
end;

exports
ExeFormPicture, GetFileName, SetFileName, SetOnShowForm, SetOnCloseForm;

end.