Я понимаю, конечно, что вопрос про дельфи здесь оффтопик, но в дельфийских формух мне не помугут, да wasm мне ближе.

Написал я библиотеку dll на асме, нужно мне ее импользовать в дельфийской проге. так не получается ничего. Мне нужно передать библиотечной функции строку и вернуть строку.
1. я не понимаю как передать указатель на строку, не знаю как вернуть строку в дельфи.
2. в результате, дельфийская прога выдает ошибку после выполнения функции dll.


ЗЫ не стоит использоват дельфи, если можно написать на асме!

Используй
StrPas(Func(PChar(Stroka))); // Возвращает строку в Пасквилевском формате

Да простит меня великий All

Нужно использовать указатели. За все версии Delphi не скажу, но седьмая выполняет преобразование AnsiString<->PChar на автомате. В общем, все просто.

Передача указателя на строку в функцию на асме: MyAsmFunction(PChar(MyString))
Чтение строки, указатель на которую возвращает асм-функция: MyString:=MyAsmFunction, где MyAsmFunction описана как возвращающая результат типа PChar.

Если важна длина строки (строки Delphi могут содержать в середине нулевые символы, в чем, собственно, их самая главная крутизна), то она хранится в виде DWORD непосредственно перед первым байтом строки.

Вот смотрите дельфийский код:
Function Mess(S: pointer):PChar; external 'mylasik.dll';
// MyString:String;
MyArray:='2+5='#0; //MyArray: array[0..32] of Char;
MyString := StrPas(Mess(@MyArray));

процедура в библиотеке:
Mess proc aaaa:dword
; mov eax,aaaa
invoke MessageBox,0,eax,eax,MB_OK
mov eax,offset mmmm ; mmmm db "test",0
ret
Mess endp

Получается в функции Mess регистр eax уже содержит указатель на сточку, а по адрессу аааа ее нет.
да и эта строчка MyString := StrPas(Mess(@MyArray));
вроде должна работать, а реале нет.

А с соглашениями о способе передачи параметров точно ничего не напутано?

stdcall забыл :)

Function Mess(S: pointer):PChar; stdcall external 'mylasik.dll';
Вроде так :)

function Mess(S: String): String; stdcall;
implementation
function Mess; external 'mylasik.dll' name 'Mess';

Во работает! большое человеческое шпасибо! сам бы долго мучался %)
Только не понял зачем нужен implementation

maradon
"Только не понял зачем нужен implementation"
masquer привел пример, когда функция Мess объявлена в interface и может быть доступна для других модулей. Если этого не нужно, то просто объявляешь
implementation
function Mess(S:PChar):PChar;stdcall;external 'mylasik.dll' name 'Mess';

Единственное замечание к коду masquer - это использование string. Как известно, при работе с dll передавать AnsiString не рекомедуется или нужно это делать осторожно (использовать в uses ShareMem или следить за тем, чтобы последний экземпляр строки удалялся только в "родном" модуле). Иначе можно нарваться на EAccessViolation или EInvalidPointer, т.к. без ShareMem у приложения и dll разные хипы.

CyberManiac
"За все версии Delphi не скажу, но седьмая выполняет преобразование AnsiString<->PChar на автомате"
Прямое присваивание работает с Delphi 3, поэтому конечно StrPas - это анахронизм. И тип PChar совместим c array[0..X] of Char, поэтому если объявляешь Mess(S:PChar), то дальше просто

//MyString:String; 
//MyArray: array[0..31] of Char; {а здесь лучше 31, а не 32 - иначе min 3 байта - на ветер (на align)}
MyString := Mess(MyArray);