Вызов функций в dll

[Vapaamies]

Сообщение от Должно быть имя?

Все верно, это для PHP

Тогда советую описать изначальную задачу, и мы со Stilet-ом поделимся опытом с коллегой.

[Stilet]

А разве на ПХП невозможно ДЛЛ вызывать? О_о

[Должно быть имя?]

Сообщение от Stilet

Для ПХП? Ты типа плагина пишешь к нему?

Описал кое какой функционал - структуру php 5.6.* на delphi
И он ожил, можно писать и exe с eval Либо полноценный модуль php

Сообщение от Stilet

А разве на ПХП невозможно ДЛЛ вызывать? О_о

Нельзя вызвать... Ой, тока не надо тот функционал сюда переть, что на php.net описан, он уже устарел, и сами они его не рекомендуют использовать

Сообщение от Vapaamies

Тогда советую описать изначальную задачу, и мы со Stilet-ом поделимся опытом с коллегой.

Изначальная задача, это вызвать любую библиотеку, по аналоговому функционалу в PHP

$result = DllCall("user32.dll", "int", "MessageBox", "hwnd", 0, "str", "Некоторый текст", "str", "Такой вот заголовок", "int", 0)

Но для начала была бы здорово саму Delphi наградить такой возможностью. Что то вроде

..
Args[0].VTypeInteger := 0;
Args[1].VPWideChar := 'Test';
Args[2].VPWideChar := 'Test';
Args[3].VTypeInteger := 0;
CallFunction('MessageBoxA', 'Int', Args);

.............................

Насчет своего языка, у меня где то завалялся свой проект, правда он на с++ правда он в прошлом autoIt выдрал нужный функционал, и синтаксис подправил... Кстати, на c++ я бы использовал LibFFi

[Stilet]

здорово саму Delphi наградить такой возможностью.

Да зачем компилируемому языку такое?

[Должно быть имя?]

Сообщение от Stilet

Да зачем компилируемому языку такое?

Дак а зачем я его наградил самым мощным ГУИ ?)))

<?php
	function FormOnMouseUp($Sender, $Button, $Shift, $x, $y) {

	}


	$Form1 = new TObject;
	$Application = new TApplication(NULL);
	$Application->Initialize();
	$Application->MainFormOnTaskbar = true;
	
	$Application->CreateForm((new TForm(NULL))->AsInstance->MetaclassType, PointerS($Form1));
	
	$Form1->OnMouseUp = 'FormOnMouseUp';
	
	$Application->Run();
?>

[Vapaamies]

Сообщение от Должно быть имя?

Изначальная задача, это вызвать любую библиотеку, по аналоговому функционалу в PHP

$result = DllCall("user32.dll", "int", "MessageBox", "hwnd", 0, "str", "Некоторый текст", "str", "Такой вот заголовок", "int", 0)

Чтобы каждый раз не грузить-выгружать библиотеку и не искать имя функции, нужно сделать класс:

type
  TDynamicLibrary = class
  private
    FFunctions: TStrings;
  public
    constructor Create(FileName: string);
    destructor Destroy; override;
    function StandardCall(const FuncName: AnsiString; const Params: array of const): Integer;
    function CDeclaration(const FuncName: AnsiString; const Params: array of const): Integer;
  end;

Потом подсмотреть в KOL или у меня в CoreLite, как написаны вызовы wvsprintf и MessageBox на ассемблере и написать аналогично. В FFunctions кэшировать адреса функций, добавляя их через AddObject.

Для x64 вместо StandardCall и CDeclaration потребуется лишь одна процедура -- FastCall, ее реализацию придется уже в подстрочнике сгенерированного компилятором кода смотреть и курить доку. Сам пока под x64 на ассемблере не писал.

[Должно быть имя?]

Сообщение от Vapaamies

Чтобы каждый раз не грузить-выгружать библиотеку и не искать имя функции, нужно сделать класс:

type
  TDynamicLibrary = class
  private
    FFunctions: TStrings;
  public
    constructor Create(FileName: string);
    destructor Destroy; override;
    function StandardCall(const FuncName: AnsiString; const Params: array of const): Integer;
    function CDeclaration(const FuncName: AnsiString; const Params: array of const): Integer;
  end;

Потом подсмотреть в KOL или у меня в CoreLite, как написаны вызовы wvsprintf и MessageBox на ассемблере и написать аналогично. В FFunctions кэшировать адреса функций, добавляя их через AddObject.

Для x64 вместо StandardCall и CDeclaration потребуется лишь одна процедура -- FastCall, ее реализацию придется уже в подстрочнике сгенерированного компилятором кода смотреть и курить доку. Сам пока под x64 на ассемблере не писал.

Сейчас ковыряю и там есть реализация под 64