[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 348
  • Last Modified:

How to fix this component that works fine in D7 for D2010?

The problem is in char, I don't know how to fix it

any help I thank very much

alex

you can download it from here

http://htlink.hidrautorque.com.br/arquivo/hddinf.zip

0
hidrau
Asked:
hidrau
2 Solutions
 
TheRealLokiSenior DeveloperCommented:
that zip file is zero length when I try to download it...
0
 
Geert GruwezOracle dbaCommented:
you'll probably have to change some char entries to ansichar
or ansistring
0
 
Ephraim WangoyaCommented:

The link you setup does not exist
0
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

 
jimyXCommented:
Lines 1270 & 1479 change the AnsiChar to Char and the _OSVERSIONINFOA to _OSVERSIONINFOW:

Line 1270:
Instead of:
   InqBuf : array[1..59] of AnsiChar;
Change it to:
    InqBuf : array[1..59] of Char;

Line 1479:
Instead of:
var osvi:_OSVERSIONINFOA;
Change it to:
var osvi:_OSVERSIONINFOW;
0
 
jimyXCommented:
0
 
guyinwonderCommented:
Line 1479:
var osvi:_OSVERSIONINFOA;
changed to 
var osvi:_OSVERSIONINFOW;

For line 1312:
    for i := 9 to 32 do IdeInfo.Model[i-8] :=  Inqbuf[i];
changed to 
    for i := 9 to 32 do IdeInfo.Model[i-8] :=  char(Inqbuf[i]);

line 1313:
    for i := 33 to 36 do IdeInfo.Revision[i-32] := Inqbuf[i];
changed to 
    for i := 33 to 36 do IdeInfo.Revision[i-32] := Char(Inqbuf[i]);

Line 1314:
    for i := 37 to 56 do IdeInfo.Serial[i-36] := Inqbuf[i];
changed to 
    for i := 37 to 56 do IdeInfo.Serial[i-36] := Char(Inqbuf[i]);

Open in new window

0
 
hidrauAuthor Commented:
thanks
0

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

Tackle projects and never again get stuck behind a technical roadblock.
Join Now