Форум Flasher.ru - DirectDraw и Perl

Форум Flasher.ru (http://www.flasher.ru/forum/index.php)

- Perl (http://www.flasher.ru/forum/forumdisplay.php?f=21)

- - DirectDraw и Perl (http://www.flasher.ru/forum/showthread.php?t=50757)

DirectDraw и Perl

Есть ли у кого исходники, али модули для Perl, которые позволяют работать с DirectDraw.

Под винду, конечно :) .

Только не говорите мне, что это невозможно... :)

DirectDraw из скриптового языка??? Зачем??? Объясни ситуацию, может подскажем другое решение.
А так - выход один (так как врядли кому-то в голову приходило так извращаться и можно найти хоть что-то готовое) - подключать библиотеку ddraw.dll и напрямую работать с её функциями.
ИМХО все-таки лучше написать нормальный ехе-шник и запускать его из перла...

Тогда проще: как подключать dll`ку из пёрла? Респект! :)

Я пишу квест. Скриптовый язык будет, ес-но, Perl. Так проще поддерживать, ну и куча других плюсов. Скомпилил, закачал, все клепают вдоволь.

Вот в этом и маза: OpenSource.

Цитата:

Оригинал написал(а) JPEG-inst
Я пишу квест. Скриптовый язык будет, ес-но, Perl.

Если ЕСТЕСТВЕННО, то TCL, а не Perl. :) Далее: если ты говоришь о скриптовании квеста, то тебе нужен какой-нибудь Embedded Perl, а для такового, помнится, не загружают какие-то специальные DLL, а предоставляют доступ к функциям хост-приложения.

Цитата:

Оригинал написал(а) JPEG-inst
Тогда проще: как подключать dll`ку из пёрла?

Самый простой способ - поставить библиотеку Win32::API и:

Код:

use Win32::API;



$GetDC = new Win32::API("user32.dll", "GetDC", [i], I);

$Ellipse = new Win32::API("Gdi32.dll", "Ellipse", [I, I, I, I, I], I);



$dc = $GetDC->Call(0);

$Ellipse->Call($dc, 0, 0, 100, 100);

Можно попробовать и напрямую через стандартный модуль DynaLoader подгрузить библиотеку, как-то так:

Код:

use DynaLoader;



$libref = DynaLoader::dl_load_file("my.dll", 0);

$symref = DynaLoader::dl_find_symbol($libref, "MyProc");

DynaLoader::dl_install_xsub("MyProc", $symref);

&MyProc();

Но наверняка попрут ошибки из-за несоответствия типов при передаче параметров... Лучше уж через первый вариант :)

ЗЫ Все равно извращение это! :)

Видимо я выбрал Embedded Perl, так как в exe впендюрил интерпретатор пёрла. И все действия пишу на сях, а пёрл токо вызывает свои функции.