Problem calling Delphi COM DLL from VB

I've a COM DLL function created in Delphi that can't i can't figure how to "call" from VB correctly.

I've uploaded the COM DLL (plus dependency dlls) and VB demo used to test the DLL to [url removed, login to view] The function in question is COMPOSE.PAS.

Here's the list:

COM DLL - [url removed, login to view] (run [url removed, login to view] to register the dll, ensure that the other 5 dependency dlls are in the same folder).

VB Demo - [url removed, login to view] (click on compose function, that's the problem area - the compose function isn't "called" correct from this VB demo.

Delphi Demo - [url removed, login to view] (this is the equivalent for the VB Demo, but works perfectly with [url removed, login to view]).

The purpose of this COM DLL is to generate a SMIL document, the SMIL doc generated by the VB has corrupted filenames.

This is the TLB for [url removed, login to view]:




helpstring("Dispatch interface for Compose Object"),




interface ICompose: IDispatch





HRESULT _stdcall ComposeSMIL([in] BSTR FileName, [in] long FrameCount, [in] long FrameData );





HRESULT _stdcall ErrorCode([out, retval] long * Value );





HRESULT _stdcall ErrorString([out, retval] BSTR * Value );


Skills: Delphi, Visual Basic

See more: hresult _stdcall delphi, delphi retval value, vb this, s.i. com, com works, com problem, bstr delphi equivalent, call delphi dll, vb n, ve-com, VB, problem, dll, dispatch, delphi\\, delphi to c#, corrupted, Compose, com, call id, c++ dll, c# dll, c dll, ensure, list com

About the Employer:
( 139 reviews ) Singapore, Singapore

Project ID: #25363

2 freelancers are bidding on average $65 for this job


Hi, your project is done:-). [url removed, login to view] and [url removed, login to view] waiting for You:-). Best regards, rentacoder:-)

$30 USD in 0 days
(49 Reviews)

Hello!! We have gone through the project information and we are very much interested in working and having a long term relationship with you. We can meet your requirements. We have good and talented team of Desig More

$99 USD in 7 days
(0 Reviews)