есть код, перевожу с си на Делфи:

...

type
{ Resources }

PIMAGE_RESOURCE_DIRECTORY = ^IMAGE_RESOURCE_DIRECTORY;
IMAGE_RESOURCE_DIRECTORY = packed record
Characteristics : DWORD;
TimeDateStamp : DWORD;
MajorVersion : WORD;
MinorVersion : WORD;
NumberOfNamedEntries : WORD;
NumberOfIdEntries : WORD;
end;

...

function readres(ird:IMAGE_RESOURCE_DIRECTORY):bool;
begin
end;

function error:integer;
var
ResBuffer: HGLOBAL;
rs:boolean;
begin
ТУТ БЫЛО НА СЯХ rs = readres((IMAGE_RESOURCE_DIRECTORY *)ResBuffer);

Как это перевести на делфи?


end;


| Сообщение посчитали полезным:

на 1-ый вариант
rs := RebuildRsrc(PIMAGE_RESOURCE_DIRECTORY(ResBuffer));

на 2-ой вариант
rs := readres(PIMAGE_RESOURCE_DIRECTORY(ResBuffer));

| Сообщение посчитали полезным:

2nd пишет:
rs := readres(PIMAGE_RESOURCE_DIRECTORY(ResBuffer));

[Error] main.pas(197): Incompatible types: 'IMAGE_RESOURCE_DIRECTORY' and 'PIMAGE_RESOURCE_DIRECTORY'

| Сообщение посчитали полезным:

rs := readres(IMAGE_RESOURCE_DIRECTORY(ResBuffer^));, если ResBuffer - pointer, иначе
rs := readres(IMAGE_RESOURCE_DIRECTORY(Pointer(ResBuffer)^));

| Сообщение посчитали полезным:

IHateWindows пишет:
есть код, перевожу с си на Делфи

маленький вопросик зачем ты хоть переводишь? если для ознакомления
с си или дельфи, то пускай... а вообще в нете полно исходников на дельфи,
для извлекания ресурсов, проще переписать под свои нужды, чем сидеть
и переводить с другого языка

-----
[nice coder and reverser]

| Сообщение посчитали полезным:

Можно посмотреть проект Jedi
projectjedi.sourceforge.net/
jedi-apilib.sourceforge.net/
delphi-jedi.org/
заодно и
Dr Bob's Header Converter - C DLL Header Converter v4.20
www.drbob42.com/headconv
Dr Bob's header conversion articles
www.drbob42.com/delphi/headconv.htm
и ещё может этот.
Утилита для трансляции *.c и *.h файлов в *.pas модули.
www.astonshell.com/freeware/c2pas32/


| Сообщение посчитали полезным:

function readres(ird:IMAGE_RESOURCE_DIRECTORY):bool;

по твоему переводу в нее передается тип IMAGE_RESOURCE_DIRECTORY
а по оригинальному вызову:
rs = readres((IMAGE_RESOURCE_DIRECTORY *)ResBuffer);
в нее передается (IMAGE_RESOURCE_DIRECTORY *) что соответствует PIMAGE_RESOURCE_DIRECTORY
нужно привести в соответствие реализацию и вызов.

| Сообщение посчитали полезным: