Непонятный краш приложения в Win32

[BadBoyAlex]

Всем привет и всех с Праздником!

Ребят, подскажите, что не так. Есть приложение. Оно нормально работает в Win64, но когда компилирую в Win32, происходит это:

LazarusWin32Error_1.png

LazarusWin32Error_2.png

Что это и как лечить?

[Vadim]

но когда компилирую в Win32

Компилируете или запускаете программу?

[BadBoyAlex]

но когда компилирую в Win32

Компилируете или запускаете программу?

Действительно, когда запускаю.

[Padre_Mortius]

BadBoyAlex, запустите приложение под gdb и посмотрите где падает

[BadBoyAlex]

запустите приложение под gdb и посмотрите где падает

А как это сделать-то?

[Padre_Mortius]

Как-то так

[Sharfik]

Что это и как лечить?

Больше информации для гадания надо.
dll какие то загружаются в ней?

[resident]

Как-то так

Интересно, решил испробовать вашу инструкцию и завис. Где скачать файл gdb.exe. Может подскажите?
Отсюда http://www.gnu.org/software/gdb/download/
Зашел сюда http://ftp.gnu.org/gnu/gdb/
Скачал архив gdb-7.9.tar.xz
gdb.exe там не могу найти.

[Padre_Mortius]

resident, обычно рядом с fpc лежит в папке bin

[resident]

Padre_Mortius спасиб, нашел в другой папке

Код: Выделить всё

C:\lazarus\mingw\i386-win32\bin

[BadBoyAlex]

Итак, вот, что выдаёт GDB:

LazarusError.png

Из разбора понял, что ошибка возникает в вызове DLL, НО! в Win64 работает! Что не так с Win32 понятия не приложу.

[Лекс Айрин]

BadBoyAlex, а dll у вас не 64битная?

[BadBoyAlex]

а dll у вас не 64битная?

нет, 32-битная

[BadBoyAlex]

После небольшого разбора: крашится от ошибки в обращении к памяти.
Вот процедура в библиотеке:

Код: Выделить всё

procedure MyFmtStr (var VStr: PChar);
var Str: String;
begin
Str:= VStr;
Str:= Format(Str, [1,2,3]);
VStr:= PChar(Str);
end;

Вот в коде:

Код: Выделить всё

function  MyFmtStr (const AStr: String): String;
var DLLInst: THandle;
    MyProc: procedure  (var VStr: PChar);
    Str: PChar;
begin
DLLInst:= SafeLoadLibrary('StrFrmtDll.dll');
@MyProc:= GetProcAddress(DLLInst, 'MyFmtStr');
Result:= AStr;
Str:= PChar(AStr);
try
 MyProc(Str);
 finally
 Result:= Str;
 FreeLibrary(DLLInst);
 end;
end;

//Собсно, сам вызов функции
//...
ShowMessage(MyFmtStr('Мы считали барашков: %d, %d пришли, а вот %d заблудился...'));
//...

Что не так?

[kazalex]

Что не так?

Ссылка на Str, которая живет только в рамках MyFmtStr.