Не удается подключить GDI+ в Delphi
[SIZE="2"]Здравствуйте!
По некоторым причинам нужно использовать именно эту библиотеку. Нашел в интете необходимые pas'ы: GDIPAPI, GDIPOBJ, GDIPUTIL (и сопутствующие DirectDraw и DXCommon).
Поскольку работаю в Delphi 2007, то надо перекомпилировать их в dcu. Задача несложная.
DXCommon - без проблем, на DirectDraw застрял. Он выдает такую ошибку, я не понимаю, как ее исправить.
Если я правильно понял, где-то надо закрыть скобку. Но если глянуть код ниже, то там все закрывается. Короче, вот все эти файлы:
http://depositfiles.com/files/5798425[/SIZE]
По некоторым причинам нужно использовать именно эту библиотеку. Нашел в интете необходимые pas'ы: GDIPAPI, GDIPOBJ, GDIPUTIL (и сопутствующие DirectDraw и DXCommon).
Поскольку работаю в Delphi 2007, то надо перекомпилировать их в dcu. Задача несложная.
DXCommon - без проблем, на DirectDraw застрял. Он выдает такую ошибку, я не понимаю, как ее исправить.
Если я правильно понял, где-то надо закрыть скобку. Но если глянуть код ниже, то там все закрывается. Короче, вот все эти файлы:
http://depositfiles.com/files/5798425[/SIZE]
Никто не знает?
ошибка вызвана тем, что ты используешь в вариантной части записи тип с управляемым временем жизни
Исправить сложно?
не знаю. попробуй следующее.
обрати внимание на следующие строки они расположены чуть выше ошибки:
[highlight=delphi]
{$IFDEF VER130}
PDirectDrawSurface = Pointer;
{$ELSE}
{$IFDEF VER140} // D6, TP 14
PDirectDrawSurface = Pointer;
{$ELSE}
PDirectDrawSurface = IDirectDrawSurface;
{$ENDIF}
{$ENDIF}[/highlight]
ты попробуй исправить на это:
[highlight=delphi]
{$IFDEF VER130}
PDirectDrawSurface = Pointer;
{$ELSE}
{$IFDEF VER140} // D6, TP 14
PDirectDrawSurface = Pointer;
{$ELSE}
PDirectDrawSurface = Pointer;
{$ENDIF}
{$ENDIF}
[/highlight]
или вообще убери условности и напиши
[highlight=delphi]
PDirectDrawSurface = Pointer;
[/highlight]
по крайней мере ошибок не выдаст, но какие будут потом последствия - неясно.
обрати внимание на следующие строки они расположены чуть выше ошибки:
[highlight=delphi]
{$IFDEF VER130}
PDirectDrawSurface = Pointer;
{$ELSE}
{$IFDEF VER140} // D6, TP 14
PDirectDrawSurface = Pointer;
{$ELSE}
PDirectDrawSurface = IDirectDrawSurface;
{$ENDIF}
{$ENDIF}[/highlight]
ты попробуй исправить на это:
[highlight=delphi]
{$IFDEF VER130}
PDirectDrawSurface = Pointer;
{$ELSE}
{$IFDEF VER140} // D6, TP 14
PDirectDrawSurface = Pointer;
{$ELSE}
PDirectDrawSurface = Pointer;
{$ENDIF}
{$ENDIF}
[/highlight]
или вообще убери условности и напиши
[highlight=delphi]
PDirectDrawSurface = Pointer;
[/highlight]
по крайней мере ошибок не выдаст, но какие будут потом последствия - неясно.
Блин, бывают же программисты вроде тебя!! (я вообще не понимаю, что делает этот модуль).
По теме: собственно, мне нужно было только одно - сделать так, чтобы эти модули работали под Delphi 2007 (ошибки действительно не нашел он).
Спасибо огромное!!
По теме: собственно, мне нужно было только одно - сделать так, чтобы эти модули работали под Delphi 2007 (ошибки действительно не нашел он).
Спасибо огромное!!
Тоже были когда-то давно такие грабли. Лечил означенным kosfiz способом.
Правда, не уверен, что после этого небыло утечек памяти при активном использовании библиотеки...
Правда, не уверен, что после этого небыло утечек памяти при активном использовании библиотеки...