VPF::Использование dll - Форум программистов

Romikgy

Дата 7.6.2005, 16:14 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Почему так?

В процедуре (дельфей) все окей функция выполняеться, данные правильные, без вопросов, однако при выходе из процедуры, вылетает аксесс вифлейшен smile

почему оно вылетает ??? smile

ЗЫ длл написана на сях , и используеться внутри вызов апи функций виндов, типы ввода/вывода стандартны , в основном dword(longint).

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Rennigth

Дата 7.6.2005, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

Цитата

ошибка в 17й строке...

код бы увидеть.

--------------------

(* Honesta mors turpi vita potior *)

Rouse_

Дата 7.6.2005, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 469
Регистрация: 23.4.2005

Репутация: 18
Всего: 29

А какое соглашение вызовов в библиотеке используется stdcall или cdecl. Мог с этим напутать. AV по завершении указывает на явную неверную работу со стеком...

--------------------

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Romikgy

Дата 7.6.2005, 17:01 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Цитата(Rennigth @ 7.6.2005, 16:30)

Цитата

ошибка в 17й строке...

код бы увидеть.

Код


var
  Form1: TForm1;
  nameproc: string;
  //pname: pchar;
  pid: DWORD;
   IniFile: TIniFile;
   ddir: string;
   s:string;
   hndDLLHandle: THandle;
   GetMemRAM,p2,p3: function  ( r: DWORD ): DWORD; stdcall;
   fp: function ( x: pchar): DWORD; stdcall;
   kp: function (x: DWORD): char; stdcall;
   ram,vir,por:DWORD;
   ram1,vir1,por1:DWORD;

hndDLLHandle := loadLibrary ( 'tens.dll' );
           if hndDLLHandle <> 0 then begin
                      // получаем адрес функции
           @GetMemRAM := getProcAddress ( hndDLLHandle, 'GetMemRAM' );
           @p2 := getProcAddress ( hndDLLHandle, 'GetMemVirtual' );
           @p3 := getProcAddress ( hndDLLHandle, 'GetInfoPort' );
           @fp := getProcAddress ( hndDLLHandle, 'FindProc' );
           @kp := getProcAddress ( hndDLLHandle, 'kill_proc' );

              end;

Это все в при создании формы

var
 kil: integer;
begin
kil:=0;
if checkbox1.Checked then
   begin
     try
     ram1:=GetMemRAM(pid);
     finally
     end;
     if ram<ram1 then kil:=1;
   end;
if checkbox2.Checked then
   begin
     //vir1:=p2(pid);
     if vir<vir1 then kil:=1;

   end;
if checkbox3.Checked then
   begin
     //por1:=p3(por);
     if por1=5 then kil:=0;
     end;
    Showmessage(inttostr(ram1));
end;

А это в процедуре....

ЗЫ если нуно могу привести и код длл
Добавлено @ 17:03

Цитата(Rouse_ @ 7.6.2005, 16:35)

stdcall выше исходник , хотя и не весь, так вырезки smile

С этим врядли напутал, а про стек и я так подумал, но что вызвало его нарушения не пойму ??? smile

Это сообщение отредактировал(а) Romikgy - 8.6.2005, 08:14

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Rouse_

Дата 7.6.2005, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 469
Регистрация: 23.4.2005

Репутация: 18
Всего: 29

Вызывай процедуры по одной и смори какая из них выдает ошбку. (или любая из них приводит к этому?)

--------------------

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Romikgy

Дата 8.6.2005, 08:13 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Цитата(Rouse_ @ 7.6.2005, 17:08)

Вызывай процедуры по одной и смори какая из них выдает ошбку. (или любая из них приводит к этому?)

Закоментировал все кроме одной, ситуевина такая же, проблема при выходе из процедуры smile

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Girder

Дата 8.6.2005, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

1. 'GetMemRAM' - возможно... что ты перепутал название.
2. Немешало бы код Dll показать(в принципе достаточно только GetMemRam... ну и там... какие он процедуры и функции задействует).

--------------------

Как слышим, так и пишим.
Истина где-то там...

Romikgy

Дата 8.6.2005, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Цитата(Girder @ 8.6.2005, 11:23)

Не с вызовом функции все номано, а вот в длл , все функции забыл пометить stdcall. В ней все пофиксил и все рулит smile

Только все равно не понятно , в чем разница вызова с stdcall и без???

ЗЫ Всем ОГРОМНОЕ спасибо за то, что помогли разобраться smile

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »