VPF::Перевести код с С++ на Паскаль - Форум программистов

ADanilov

Дата 4.1.2007, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 8.9.2004

Репутация: нет
Всего: нет

Не подскажете как перевести строчку с С++ на Паскать?

#define GOAL_FOURCC MAKEFOURCC('G', 'O', 'A', 'L')

rval = AVIFileReadData(pfile, GOAL_FOURCC, buf, &bufSize);

Visp

Дата 4.1.2007, 13:01 (ссылка)

(нет голосов)

Загрузка ...

Программер

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 21.8.2006

Репутация: нет
Всего: нет

MAKEFOURCC

Код


#define MAKEFOURCC(ch0, ch1, ch2, ch3)                              \
                ((DWORD)(BYTE)(ch0) | ((DWORD)(BYTE)(ch1) << 8) |   \
                ((DWORD)(BYTE)(ch2) << 16) | ((DWORD)(BYTE)(ch3) << 24 ))

может это это или это поможет

bems

Дата 4.1.2007, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Код


function MAKEFOURCC(ch0,ch1,ch2,ch3:char):DWORD;
begin
result:=byte(ch0)+(byte(ch1) shl 8)+(byte(ch2) shl 16)+(byte(ch3) shl 24)
end;
...
GOAL_FOURCC:=MAKEFOURCC('G', 'O', 'A', 'L');
rval:=AVIFileReadData(pfile,GOAL_FOURCC, buf, @bufSize);

Добавлено @ 17:35
это приблизительный перевод, но должно работать. Замечания:
1) т.к. в Паскале нет макросов, то GOAL_FOURCC нельзя рбьявить константой, это должна быть переменная типа DWORD
2) вызов AVIFileReadData может отличаться в зависимости от того как у тебя объявлена эта функция. Например при переводе на Паскаль часто заменяют параметры-указатели на var-параметры.

--------------------

Обижено школьников: 8

Romikgy

Дата 4.1.2007, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(bems @ 4.1.2007, 16:30

)

function MAKEFOURCC(ch0,ch1,ch2,ch3:char):DWORD;
begin
result:=byte(ch0)+(byte(ch1) shl 8)+(byte(ch2) shl 16)+(byte(ch3) shl 24)
end;

имхо лучше так

Код


function MAKEFOURCC(ch0,ch1,ch2,ch3:char):DWORD;
begin
result:=DWORD(BYTE(ch0))+(DWORD(BYTE(ch1)) shl 8)+(DWORD(BYTE(ch2)) shl 16)+(DWORD(BYTE(ch3)) shl 24)
end;

ибо при

Цитата(bems @ 4.1.2007, 16:30

)

(byte(ch3) shl 24)

провернется пару раз на месте имхо

Это сообщение отредактировал(а) Romikgy - 4.1.2007, 19:14

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

bems

Дата 5.1.2007, 01:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

shl считает левый операнд integerом. Можешь проверить

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »