hello, I use a DLL developed in D7 and not have the same sources. I will use Delphi 2010 and the functions do not work

function TkmInitialize(LOGXMLDIR: PChar; TkmByExt: dWord): dWord; stdcall; external 'trackbuffer.dll';
function TkmCreateStream(FileName: PChar; Var Stream: dWord; Var Error: dWord): PChar; stdcall; external 'trackbuffer.dll';
function TkmLogEnd(Stream: dWord; MediaDuration, MediaPosition, MediaType: dWord; MediaName: PChar): dWord; stdcall; external 'trackbuffer.dll';
function TkmIsTkm(FileName: PChar): Bool; stdcall; external 'trackbuffer.dll';

How do I solve this problem. I do not have the sources of DLL

Regards

Pedro Leonardo wrote:
> hello, I use a DLL developed in D7 and not have the same sources. I will use Delphi 2010 and the functions do not work
> 
> function TkmInitialize(LOGXMLDIR: PChar; TkmByExt: dWord): dWord; stdcall; external 'trackbuffer.dll';
> function TkmCreateStream(FileName: PChar; Var Stream: dWord; Var Error: dWord): PChar; stdcall; external 'trackbuffer.dll';
> function TkmLogEnd(Stream: dWord; MediaDuration, MediaPosition, MediaType: dWord; MediaName: PChar): dWord; stdcall; external 'trackbuffer.dll';
> function TkmIsTkm(FileName: PChar): Bool; stdcall; external 'trackbuffer.dll';
> 
> How do I solve this problem. I do not have the sources of DLL
> 
> Regards

Change the PChar declarations to PAnsiChar.  What in D7 was a PChar is now a 
PAnsiChar in the Unicode versions.

-- 
Jeff Overcash (TeamB)
       (Please do not email me directly unless  asked. Thank You)
And so I patrol in the valley of the shadow of the tricolor
I must fear evil. For I am but mortal and mortals can only die.
Asking questions, pleading answers from the nameless
faceless watchers that stalk the carpeted  corridors of Whitehall.
              (Fish)

> {quote:title=Pedro Leonardo wrote:}{quote}
> hello, I use a DLL developed in D7 and not have the same sources. I will use Delphi 2010 and the functions do not work
> 
> function TkmInitialize(LOGXMLDIR: PChar; TkmByExt: dWord): dWord; stdcall; external 'trackbuffer.dll';
> function TkmCreateStream(FileName: PChar; Var Stream: dWord; Var Error: dWord): PChar; stdcall; external 'trackbuffer.dll';
> function TkmLogEnd(Stream: dWord; MediaDuration, MediaPosition, MediaType: dWord; MediaName: PChar): dWord; stdcall; external 'trackbuffer.dll';
> function TkmIsTkm(FileName: PChar): Bool; stdcall; external 'trackbuffer.dll';
> 
> How do I solve this problem. I do not have the sources of DLL
> 
> Regards


Hi, 
I changed and not worked

Regards

Pedro Leonardo wrote:
>> {quote:title=Pedro Leonardo wrote:}{quote}
>> hello, I use a DLL developed in D7 and not have the same sources. I will use Delphi 2010 and the functions do not work
>>
>> function TkmInitialize(LOGXMLDIR: PChar; TkmByExt: dWord): dWord; stdcall; external 'trackbuffer.dll';
>> function TkmCreateStream(FileName: PChar; Var Stream: dWord; Var Error: dWord): PChar; stdcall; external 'trackbuffer.dll';
>> function TkmLogEnd(Stream: dWord; MediaDuration, MediaPosition, MediaType: dWord; MediaName: PChar): dWord; stdcall; external 'trackbuffer.dll';
>> function TkmIsTkm(FileName: PChar): Bool; stdcall; external 'trackbuffer.dll';
>>
>> How do I solve this problem. I do not have the sources of DLL
>>
>> Regards
> 
> 
> Hi, 
> I changed and not worked
> 
> Regards

How are you calling the function then.  You probably are still sending the 
address of a Unicode string.

-- 
Jeff Overcash (TeamB)
       (Please do not email me directly unless  asked. Thank You)
And so I patrol in the valley of the shadow of the tricolor
I must fear evil. For I am but mortal and mortals can only die.
Asking questions, pleading answers from the nameless
faceless watchers that stalk the carpeted  corridors of Whitehall.
              (Fish)

> {quote:title=Pedro Leonardo wrote:}{quote}
> hello, I use a DLL developed in D7 and not have the same sources. I will use Delphi 2010 and the functions do not work
> 
> function TkmInitialize(LOGXMLDIR: PChar; TkmByExt: dWord): dWord; stdcall; external 'trackbuffer.dll';
> function TkmCreateStream(FileName: PChar; Var Stream: dWord; Var Error: dWord): PChar; stdcall; external 'trackbuffer.dll';
> function TkmLogEnd(Stream: dWord; MediaDuration, MediaPosition, MediaType: dWord; MediaName: PChar): dWord; stdcall; external 'trackbuffer.dll';
> function TkmIsTkm(FileName: PChar): Bool; stdcall; external 'trackbuffer.dll';
> 
> How do I solve this problem. I do not have the sources of DLL
> 
> Regards


Hi, I changed all calls  PChar to PAnsiChar

function TkmCreateStream(FileName: PAnsiChar; Var Stream: dWord; Var Error: dWord): PAnsiChar; stdcall; external 'trackbuffer.dll';

Pedro Leonardo wrote:
>> {quote:title=Pedro Leonardo wrote:}{quote}
>> hello, I use a DLL developed in D7 and not have the same sources. I will use Delphi 2010 and the functions do not work
>>
>> function TkmInitialize(LOGXMLDIR: PChar; TkmByExt: dWord): dWord; stdcall; external 'trackbuffer.dll';
>> function TkmCreateStream(FileName: PChar; Var Stream: dWord; Var Error: dWord): PChar; stdcall; external 'trackbuffer.dll';
>> function TkmLogEnd(Stream: dWord; MediaDuration, MediaPosition, MediaType: dWord; MediaName: PChar): dWord; stdcall; external 'trackbuffer.dll';
>> function TkmIsTkm(FileName: PChar): Bool; stdcall; external 'trackbuffer.dll';
>>
>> How do I solve this problem. I do not have the sources of DLL
>>
>> Regards
> 
> 
> Hi, I changed all calls  PChar to PAnsiChar
> 
> function TkmCreateStream(FileName: PAnsiChar; Var Stream: dWord; Var Error: dWord): PAnsiChar; stdcall; external 'trackbuffer.dll';

But how are you calling it?  Did you fix up the calling code.  You said even 
after doing this it "didn't work" which is pretty non descriptive.  Not only do 
you need to fix the external declarations but you need to make sure you are 
passing in the correct data types to those calls.

-- 
Jeff Overcash (TeamB)
       (Please do not email me directly unless  asked. Thank You)
And so I patrol in the valley of the shadow of the tricolor
I must fear evil. For I am but mortal and mortals can only die.
Asking questions, pleading answers from the nameless
faceless watchers that stalk the carpeted  corridors of Whitehall.
              (Fish)

Hello Pedro,

> hello, I use a DLL developed in D7 and not have the same sources.
> I will use Delphi 2010 and the functions do not work

That is because you are mismatching the parameter types.  PChar is PAnsiChar 
in D7, but is PWideChar in D2010.  You need to declare the DLL functions 
accordingly in your D2010 code, eg:

{code:delphi}
function TkmInitialize(LOGXMLDIR: PAnsiChar; TkmByExt: dWord): dWord; stdcall; 
external 'trackbuffer.dll';

function TkmCreateStream(FileName: PAnsiChar; Var Stream: dWord; Var Error: 
dWord): PAnsiChar; stdcall; external 'trackbuffer.dll';

function TkmLogEnd(Stream: dWord; MediaDuration, MediaPosition, MediaType: 
dWord; MediaName: PAnsiChar): dWord; stdcall; external 'trackbuffer.dll';

function TkmIsTkm(FileName: PAnsiChar): Bool; stdcall; external 'trackbuffer.dll';
{code}

--
Remy Lebeau (TeamB)