Solved

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

Posted on 2011-03-09
7
332 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
Best Practices: Disaster Recovery Testing

Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.

 
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

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Intraweb download file link ? 1 134
Dev Express grid collapse 2 45
Tvertscrollbox like a whatsapp layout 5 28
scroll down TListBox component in Delphi 1 11
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
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…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

778 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