VPF::вызов из 1 процедуры вторую- EaccessViolation

dee63

Дата 19.5.2011, 15:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем привет!
Пишу проект. Смысл его части в том, что надо отловить появление флешки и запустить другую процедуру.

В части отлова флешки я не изобретал велосипед и сделал так:

Код


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, ExtCtrls, sSkinManager, sButton, acPNG,
  sLabel, sGroupBox, sMemo,activeX, OleServer, WbemScripting_TLB,registry;

Const
    DBT_DEVICEARRIVAL =  $8000;
    DBT_DEVTYP_VOLUME = 2;
    DBT_DEVICEREMOVECOMPLEATE = $8004;
        DICS_ENABLE = $00000001;
  DICS_DISABLE = $00000002;
  DIF_PROPERTYCHANGE = $00000012;
  DICS_FLAG_GLOBAL = $00000001;
  DIGCF_PRESENT = $00000002;
  SPDRP_COMPATIBLEIDS = $00000002;
  DISK_GUID: TGUID = '{4D36E967-E325-11CE-BFC1-08002BE10318}';

type
  PDEV_BROADCAST_HDR = ^DEV_BROADCAST_HDR;
  DEV_BROADCAST_HDR = record
    dbch_size,
    dbch_devicetype,
    dbch_reserved: DWORD;
  end;

  PDEV_BROADCAST_VOLUME = ^DEV_BROADCAST_VOLUME;
  DEV_BROADCAST_VOLUME = record
      dbcv_size,
      dbcv_devicetype,
      dbcv_reserved,
      dbcv_unitmask: DWORD;
  end;

  TClient = class(TForm)
    cs: TClientSocket;
    te: TTimer;
    sGroupBox1: TsGroupBox;
    sLabel1: TsLabel;
    Image1: TImage;
    infolabel: TsLabel;
    ClearButton: TsButton;
    sSkinManager1: TsSkinManager;
    ownsend: TButton;
    log1: TsMemo;
    SWbemLocator1: TSWbemLocator;
    sButton1: TsButton;
    log: TMemo;
     procedure AddToLog(s:string);
    Procedure Proc(var Msg:TMessage); message WM_DEVICECHANGE; stdcall;
    ............................................
....................
...
.............

implementation

{$R *.dfm}
type
  PSP_CLASSINSTALL_HEADER = ^SP_CLASSINSTALL_HEADER;
  SP_CLASSINSTALL_HEADER = record
    cbSize: DWORD;
    InstallFunction: Cardinal;
  end;

  PSP_PROPCHANGE_PARAMS = ^SP_PROPCHANGE_PARAMS;
  SP_PROPCHANGE_PARAMS = record
    ClassInstallHeader: SP_CLASSINSTALL_HEADER;
    StateChange: DWORD;
    Scope: DWORD;
    HwProfile: DWORD;
  end;

  PSP_DEVINFO_DATA = ^SP_DEVINFO_DATA;
  SP_DEVINFO_DATA = record
    cbSize: DWORD;
    ClassGuid: TGUID;
    DevInst: DWORD;
    Reserved: Longint;
  end;

function SetupDiGetClassDevs(const ClassGuid: PGUID; Enumerator: PChar;
    hwndParent: HWND; Flags: DWORD): DWORD; stdcall;
    external 'Setupapi.dll' name 'SetupDiGetClassDevsA';

  function SetupDiDestroyDeviceInfoList(DeviceInfoSet: DWORD): BOOL; stdcall;
    external 'Setupapi.dll';

  function SetupDiEnumDeviceInfo(DeviceInfoSet: DWORD; MemberIndex: DWORD;
    DeviceInfoData: PSP_DEVINFO_DATA): BOOL; stdcall;
    external 'Setupapi.dll';

  function SetupDiCallClassInstaller(InstallFunction: DWORD;
    DeviceInfoSet: DWORD; DeviceInfoData: PSP_DEVINFO_DATA): BOOL; stdcall;
    external 'setupapi.dll';

  function SetupDiGetDeviceRegistryProperty(DeviceInfoSet: DWORD;
    DeviceInfoData: PSP_DEVINFO_DATA; Propertys: DWORD; PropertyRegDataType: PWORD;
    PropertyBuffer: PByte; PropertyBufferSize: DWORD; RequiredSize: PWORD): BOOL; stdcall;
    external 'Setupapi.dll' name 'SetupDiGetDeviceRegistryPropertyA';

  function SetupDiSetClassInstallParams(DeviceInfoSet: DWORD;
    DeviceInfoData: PSP_DEVINFO_DATA; ClassInstallParams: PSP_CLASSINSTALL_HEADER;
    ClassInstallParamsSize: DWORD): BOOL; stdcall;
    external 'setupapi.dll' name 'SetupDiSetClassInstallParamsA';
//==============================================================================

procedure tclient.Proc(var Msg: TMessage);
var
DriveLetter: string;
mess:string;
begin
try
  if (Msg.WParam = DBT_DEVICEREMOVECOMPLEATE) then
    if (PDEV_BROADCAST_HDR(Msg.LParam)^.dbch_devicetype = DBT_DEVTYP_VOLUME) then
     mess:='Флешка ушла';

  if (MSG.WParam = DBT_DEVICEARRIVAL) then
    if (PDEV_BROADCAST_HDR(Msg.LParam)^.dbch_devicetype = DBT_DEVTYP_VOLUME) then
    begin
      mess:='Флешка пришла';
    end;
finally
addtolog(mess);
end;
end;


Procedure TClient.AddToLog (s:string);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
  mydate:=Now;
  DateTimeToString(formattedDateTime, 'c', myDate);
[color=red]  log.lines.Add(formattedDateTime+' : '+s);[/color]
end;

.................................
и так далее
.................
прочие процедуры и функции
........................................

Т.е. что тут получается:
как только приходит в систему флешка, то процедура PROC ловит это событие и процедура AddToLog должна вывести в мемо (имеет имя log) строку, которую ей передает процедура Proc.

По факту имею:
Флешку ловит, доходит до момента, когда AddToLog указывается добавить строку в мемо (строка выделена красным в коде) и выкидывает ошибку EAccess Violation скрине во вложении.

Я пробовал с любым объектом-не возможно его модифицировать, та же ошибка.
Однако Showmessage работает.

Что я не так написал? Ткните пальцем плиз)

Присоединённый файл ( Кол-во скачиваний: 10 )

eaccesserror.jpg 85,53 Kb

superVad

Дата 19.5.2011, 16:23 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15

А в этот момент лог уже создан? В него можно что то написать руками например?

dee63

Дата 19.5.2011, 16:29 (ссылка)

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

Загрузка ...

Шустрый

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

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

ДА, создан.
там принцип какой:
Форма открыта, я специально подождал минут 5 и воткнул флешку. тут же и понеслось

chip_and_dayl

Дата 19.5.2011, 17:47 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 1
Всего: 9

Такой вопрос, флешка вставляется после запуска программы или до?

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

Фсё будет хорошо!!!

Snowy

Дата 19.5.2011, 19:34 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Не заноси напрямую в мемо.
Заноси куда-нить в другое место, а потом периодически, или по сигналу, закидывай в мему.
В качестве сигнала предлагаю использовать PostMessage - сработает, когда очередь сообщений освободится.
Попытка влезть в очередь к самому себе во время обработки сообщений, и при этом, требуя результата, сносит крышу в ядре винды и она взрывает исключение.
А занесение строк в мемо - как раз и есть вызов SetMessage, который ждет ответа, но не будет получен, т.к. этим ожиданием ты заткнул обработку сообщений.

dee63

Дата 20.5.2011, 08:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(chip_and_dayl @ 19.5.2011, 17:47

)

Такой вопрос, флешка вставляется после запуска программы или до?

После открытия формы, естественно.
До-она не поймает событие.

Добавлено через 10 минут и 35 секунд

Цитата(Snowy @ 19.5.2011, 19:34)

В принципе оно верно, НО...

я спецом сделал еще 1 проект и в нем ввел все то же самое. Процедуры перенесены 1 в 1 по CTRL+C.
и что вы думаете? Работает как часы и не пикает!!!

А в предыдущем проекте ругается.
См вложение проекта.

Нифга не понимаю.

Присоединённый файл ( Кол-во скачиваний: 7 )

usb__________.7z 153,17 Kb

MetalFan

Дата 20.5.2011, 14:00 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

а может так случиться, что в обработчике log не сработает ни одно из условий, по которому присваивается значение переменной, и в AddToLog уйдет ниинициализированная локальная переменная mess? Что скорее всего и может иногда валить программу.
Отсюда вывод: не забываем о том, что локальные переменные неплохо бы как-то инициализировать.

Это сообщение отредактировал(а) MetalFan - 20.5.2011, 14:02

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

There are always someone smarter than you...

RomanEEP

Дата 24.5.2011, 09:08 (ссылка)

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

Загрузка ...

Опытный

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

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

Строки в Delphi управляются автоматически, поэтому их инициализацию компилятор вставляет сам. И делать это вручную не нужно - компилятор даже никакого хинта и варнинга не выводит

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

Электронные экзамены

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