Функции в fasm'e

У меня собственно такой вопрос:

Как в fasm'e функции писать?

Например в дельфяке я бы сделал:

//====================================================
//=========== EXE === == =
...
type
TMyFunc = function(C : PChar):PChar;

var
dll_handle : THandle;
MyFunc : TMyFunc;

begin
dll_handle := LoadLibrary(PChar('mylib.dll');
MyFunc := GetProcAddress(dll_handle,'MainProc');
MyFunc('xxl');
end;
...

//=========== DLL === == =

function MainProc(C : PChar):PChar;
var
xxx : PChar;
begin
...
Result := xxx;
end;

exports
MainProc;

//====================================================

PS: Мне надо DLL'ky написать.

 

Код (Text):

1. public myproc
2. myproc:
3. ; тут тело функции
4. mov eax,результат
5. ret

 

Sorry...
А как результат вернуть?

 

Исправил

 

Чё-т не пойму.
FASM выдает illegal instruction на етот public, да и результат нужен в строковом параметре.

Может example какой есь?

 

AvataR

Тогда Вам нужно сначала разобраться с фасмом и ассемблером, а потом уже пытаться собрать dll. Поиск по форуму рулит.

 

Ну я и пытаюсь освоить FASM. Для чего и зашел сюда. А на счет поиска - ищу, но не найду.

 

http://www.wasm.ru/forum/viewtopic.php?pid=127951#p127951

 

Пасиб за линки. Но хотелось бы еще и example.

 

ыы=) fasm\EXAMPLES\ +)
в папке фасма лежит ман на англицком в пдф, фасм бери с wasm.ru=)

 

в пакете fasmw есть пример простой dll

 

Лентяй

 

С английским я не очень...

Тама пример процедуры а мне надо создать функцию, возвращающую результат в виде строки.

Немного есь, но не в программировании.
Был бы материал нормальный на эту тема и все 0k

 

???

 

AvataR
Есть перевод на русский, поищи на форуме фасма. Потом, есть статьи о фасме на этом сайте, ессно, тоже на русском.

Забудь о делфи. Почитай первый раздел статей, начни с азов. "Результат в виде строки" - в Win32 строка - это массив символов, оканчивающихся 0. Передаётся она из функции в функцию по указателю на первый символ.

Код (Text):

1. proc GetName
2.   mov  eax,szName
3.   ret
4. endp
5.  
6. szName db 'name',0

 

Ice Student
Благодарю.