请问如何调用一个vb写的dll

Question

我现在的方法是在delphi中将dll生成接口文件，然后通过接口文件调用dll有没有更好的方法，最好有代码例子，谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  ss : variant;
begin
  //CoInitialize(nil);
  ss := createoleobject('DTSDLL.clsDTS');  if ss.execute('Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=JHCL;Data Source=hj',
                'hj','hj','SWSquare','JHCJ','1613','20020101') then
    showmessage('sss');
  ss := unassigned;
end;