VPF::Net send - Форум программистов

Bog d`An

Дата 2.3.2006, 16:56 (ссылка)

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

Загрузка ...

Бывалый

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

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

для нетсенда не работает smile

зы: не смог добится от маилслот приёма сообщений. Хотя китайский майслот отправляет сообщения.
тот который в зипе - вообще не может найти в себе класс smile

какого?

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

Удача откроет двери даже там, где их нет.Генри Морган--------------------[Furry team][Agent`s team][СРУКер]

smartov

Дата 3.3.2006, 17:39 (ссылка)

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

Загрузка ...

свой собственный

Профиль
Группа: Экс. модератор
Сообщений: 4225
Регистрация: 2.2.2006
Где: NJ

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

Bog d`An,

Цитата(Bog d`An @ 2.3.2006, 15:56

)

для нетсенда не работает

А там разве не окно а misterious headers какой-то? Нормальное окно.

Код


function SetWindowsHookEx(idHook: integer; lpfn: TFNHookProc; hmod: HINST; dwThreadID: DWORD): HHOOK; stdcall;

idHook: описывает тип устанавливаемой ловушки. Данный параметр может принимать одно из следующих значений:

WH_CALLWNDPROC
Фильтр процедуры окна. Функция-фильтр ловушки вызывается, когда процедуре окна посылается сообщение. Windows вызывает этот хук при каждом вызове функции SendMessage.
WH_SHELL
Фильтр приложения оболочки. Функция-фильтр ловушки вызывается, когда создаются и разрушаются окна верхнего уровня или когда приложению-оболочке требуется стать активным.
и много много другого полезного можно прочитать вот прямо на это самой странице.
Удачного эРТээФэМа smile

Sunvas

Дата 18.3.2006, 08:50 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Вот у меня где-то валялся какой-то старый код. Может кому чем и поможет. Плюс в том, что можно менять имя отправителя, а минус в том, что работает только из Win NT...

Код


implementation 

var
  hLib: THandle = 0;
  NetMessageBufferSend: function(servername: LPCWSTR; msgname: LPCWSTR;
    fromname: LPCWSTR; buf: PBYTE; buflen: DWORD): DWORD; stdcall = nil;
/////////////////////

procedure Tform1.btnSendClick(Sender: TObject);
var
  ToNameBuffer,fromNameBuffer, TextBuffer: PWideChar;
  ToNameLen,fromNameLen, TextLen, RetVal: DWORD;
begin
  if (hLib > 0) and Assigned(NetMessageBufferSend) then
  begin
    ToNameLen := Length({кому отправляем типа строка});
    ToNameBuffer := AllocMem((ToNameLen + 1) * SizeOf(WideChar));
    fromNameLen := Length({от кого отправляем типа строка});
    fromNameBuffer := AllocMem((fromNameLen + 1) * SizeOf(WideChar));
    try
      StringToWideChar({кому отправляем типа строка}, ToNameBuffer, ToNameLen + 1);
      StringToWideChar({от кого отправляем типа строка}, fromNameBuffer, fromNameLen + 1);
       TextLen := Length({Строку, которую отправляем});
      TextBuffer := AllocMem((TextLen + 1) * SizeOf(WideChar));
      try
        StringToWideChar(Text.Text, TextBuffer, TextLen + 1);
        RetVal := NetMessageBufferSend(nil, ToNameBuffer,fromNameBuffer,
                                       PByte(TextBuffer),
                                       (TextLen + 1) * SizeOf(WideChar));
        if RetVal > 0 then
         //showmessage('');
         // raise Exception.Create(SysErrorMessage(RetVal))
        else
         //* Close;
      finally
        FreeMem(TextBuffer);
      end;
    finally
      FreeMem(ToNameBuffer);
    end;
  end;
end;
//////И в конце юнита пишем
initialization
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    hLib := LoadLibrary('netapi32.dll');
    if hLib > 0 then
      @NetMessageBufferSend := GetProcAddress(hLib, 'NetMessageBufferSend');
  end;
finalization
  if hlib > 0 then
    FreeLibrary(hLib);

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

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