Peregon typedef ---> record

← →
AndersoNRules (2004-06-06 20:47) [0]

Privet! Vot muchayusi perevodom odovo typedef(C++) v record(Object Pascal):

typedef struct _IMAGE_THUNK_DATA64 { union { ULONGLONG ForwarderString; // PBYTE ULONGLONG Function; // PDWORD ULONGLONG Ordinal; ULONGLONG AddressOfData; // PIMAGE_IMPORT_BY_NAME } u1; } IMAGE_THUNK_DATA64;

Pomogite pls!

← →
AlexG © (2004-06-06 21:40) [1]

_IMAGE_THUNK_DATA64 = record case byte of 0: (ForwarderString: ); 1: (Function: ); 2: (Ordinal: ); 3: (AddressOfData: ); end;

Не понял, что там за типы используются?
Вот, наверно, близко к этому.

← →
AndersoNRules (2004-06-06 21:51) [2]

A shto znachit takoe oboznacheniye :
typedef IMAGE_THUNK_DATA32 * PIMAGE_THUNK_DATA32; ?

← →
jack128 © (2004-06-06 22:03) [3]

> typedef IMAGE_THUNK_DATA32 * PIMAGE_THUNK_DATA32; ?

type
PIMAGE_THUNK_DATA32 = ^IMAGE_THUNK_DATA32;

> Не понял, что там за типы используются?
ulonglong - скорее всего беззнаковое 64битовое целое. полного аналога на Delphi нет. Наиболее близкий Int64 - но он со знаком..

← →
AndersoNRules (2004-06-06 22:09) [4]

//2 + //3 spasibo rebyata !
//3 - nascheot int64 ti prav !

← →
AndersoNRules (2004-06-06 22:18) [5]

videl v C++ takoy kod :
if (new_head.OptionalHeader.Magic=0x10B) {...}

a kak sdelati takoe sravneniye v Delphi, compiler ne ponimaet:0x10B. govorit:" ) expected but identifier 0x10B found "

← →
GuAV © (2004-06-06 22:21) [6]

> ne ponimaet:0x10B

$010B
> if (new_head.OptionalHeader.Magic=0x10B) {...}

if (new_head.OptionalHeader.Magic=0x10B) then
{...}

← →
jack128 © (2004-06-06 22:30) [7]

> if (new_head.OptionalHeader.Magic=0x10B) then
> {...}
begin...end :-P ;-)

← →
AndersoNRules (2004-06-06 22:31) [8]

thanx

← →
GuAV © (2004-06-06 22:35) [9]

> > {...}
> begin...end :-P ;-)

Блин я думал, что это в ихнем С++ коментарии :(

← →
AndersoNRules (2004-06-06 22:56) [10]

kto znayet Delphi"iskiy analog C++"ovskovo :
(Copies characters between buffers.)

void *memcpy( void *dest, const void *src, size_t count ); wchar_t *wmemcpy( wchar_t *dest, const wchar_t *src, size_t count );
Parameters
dest
New buffer.
src
Buffer to copy from.
count
Number of characters to copy.
Return Value
The value of dest.

← →
GuAV © (2004-06-06 23:03) [11]

procedure memcpy(var dest; const src; count: Integer);
procedure memcpy(dest, src: Pointer; count: Integer);

function wmemcpy(dest, src: PWideChar; count: Integer): PWideChar;

Так, да ?

← →
GuAV © (2004-06-06 23:05) [12]

> AndersoNRules

Вы главное ничего не забывайте, всё спрашивайте, тогда тут будет руководство по переводу из .h в .pas :)

← →
AndersoNRules (2004-06-06 23:08) [13]

>Вы главное ничего не забывайте, всё спрашивайте, тогда тут будет руководство по переводу из .h в .pas :)
--- i razoideozza tirajom v 100000000000 userov v god !

← →
AndersoNRules (2004-06-06 23:09) [14]

:) kstati v kakom unite ati funczziy hraniazza?

AndersoNRules (06.06.04 23:09) [14]
Уже кажется объясняли AltF7 в Commander/Far, F3 в Explorer...

> procedure memcpy(var dest; const src; count: Integer);
> procedure memcpy(dest, src: Pointer; count: Integer);

function memcpy(var dest; const src; count: Integer): Pointer;
function memcpy(dest, src: Pointer; count: Integer): Pointer;

← →
AndersoNRules (2004-06-06 23:19) [16]

atot F3 v explorere fignya...
no shyas poprobuyu Com/Far

>memcpy
LOL
system.pas - только "не выведена"

procedure memcpy(Dest: Pointer; Source: Pointer; N: Integer); cdecl;
external libc name "memcpy";

← →
Григорьев Антон (2004-06-07 09:20) [18]

вместо memcpy в Delphi надо использовать Move.

[18] а есть ещё CopyMemory в winapi

Peregon typedef ---> record Найти похожие ветки