Abdulaziz


Reviewing the posts so far I find

<<
if UpperCase(RoutineName) = UpperCase('GetServerSerialNumber') then begin
  ParamValues.FindByName('Result').AsString := GetDiskSerialNumber_Win7(ParamValues.FindByName('iLengthToReturn').AsInteger);
end;
>>

and

<<
function GetDiskSerialNo : string;
begin
        Result := GetWMIString('Win32_PhysicalMedia', 'SerialNumber');
end;
>>

It seems as though you are talking about two different functions with different parameters

Roy Lambert

Roy Lambert wrote:

<<It seems as though you are talking about two different functions with different parameters>>

Thanks Roy, but I was giving an example only.  Please drop me an email (jassera@yahoo.com) and I will send you the external module project so you can test it your self.  You can test it using EDBManger.

Regards,
Abdulaziz Jasser

Abdulaziz


Just use the email I use on these newsgroups

Roy Lambert

Abdulaziz


Or better than emailing it to me post it to the binaries so that others can join in to help.

Roy Lambert

Roy,

Please find a light version of external module.  You can test it using EDBManager.
 
Regards,
Abdulaziz Jasser

Abdulaziz


Works fine here.

Roy Lambert

Roy Lambert wrote:

<<Works fine here.>>


Huummmmm!!!!!????  What could be the reason for not working here on my pc?

Regards,
Abdulaziz Jasser

Abdulaziz


>Huummmmm!!!!!???? What could be the reason for not working here on my pc?

Database defined as ANSI when it should be Unicode or vice versa
Installing a 64 bit dll into a 32 bit process
Windows 8 just being itself
None of the above

At this point I suggest you open a support session with Tim. At least he should be able to replicate your environment.


Roy

Tim,

Can we have some help?


Regards,
Abdulaziz Jasser

Abdulaziz


If you have a paid up subscription you can go to the web site and register a support request there. Tim isn't visiting these ngs much right now (I think he's busy developing away like mad)

Roy Lambert