Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

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

Posted on 2011-03-09
7
337 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
Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
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

Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

Question has a verified solution.

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

Suggested Solutions

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…

839 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