Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];
ВнизПроблема с ДЛЛ Найти похожие ветки
← →
Al_jus (2005-07-23 14:09) [0]простите за назойливость, но предыдущее обсуждение по каким то причинам закрыли, а проблема так и осталась нерешенной!
Есть программа:..............
var
Form1: TForm1;
getDayOfWeek :function(a:integer):integer;stdcall
LibHandle : THandle;
implementation
{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
begin
@getDayOfWeek := nil;
LibHandle := LoadLibrary("MyDLL.DLL");
if LibHandle >= 32 then
begin
@getDayOfWeek := GetProcAddress(LibHandle,"getDayOfWeek");
if @getDayOfWeek <> nil then
ShowMessage(inttostr(getDayOfWeek(7)));
end;
FreeLibrary(LibHandle);
end;
......................
и есть ДЛЛ для нее:......................
function getDayOfWeek(a :integer):integer; stdcall;
begin
result := a;
end;
exports getDayOfWeek;
begin
end.
......................
при выполнении функции из ДЛЛ программа выводит сообщение "1242939" хотя я ожидаю просто "7". А потом вылетает с ошибкой "access violation"
Помогите разобраться, что я делаю не так!
И не закрывайте, пожалуйста, пост до тех пор, пока проблема существует.
Заранее спасибо
← →
alex-drob © (2005-07-23 14:29) [1]Такое может быть если например в длл stdcall написанно а в приложении нет.
Перекомпелируй dll, и приложение.
← →
Al_jus (2005-07-23 14:35) [2]так в том то и дело что написано! :(
← →
evvcom © (2005-07-23 14:50) [3]
> так в том то и дело что написано! :(
А ты все-таки проверь еще раз. Потому как код, приведенный тобой содержит ошибку, значит он был не из Delphi скопирован в том виде в каком он здесь, а правился уже прямо здесь.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.018 c