Solved

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

Posted on 2011-03-09
7
330 Views
Last Modified: 2012-05-11
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
Comment
Question by:hidrau
7 Comments
 
LVL 17

Expert Comment

by:TheRealLoki
ID: 35088529
that zip file is zero length when I try to download it...
0
 
LVL 37

Expert Comment

by:Geert Gruwez
ID: 35089091
you'll probably have to change some char entries to ansichar
or ansistring
0
 
LVL 32

Expert Comment

by:ewangoya
ID: 35089380

The link you setup does not exist
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 24

Assisted Solution

by:jimyX
jimyX earned 200 total points
ID: 35090038
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
 
LVL 24

Expert Comment

by:jimyX
ID: 35090040
0
 

Accepted Solution

by:
guyinwonder earned 300 total points
ID: 35091169
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
 
LVL 1

Author Comment

by:hidrau
ID: 35094253
thanks
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

929 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now