Send Message

[_SERGEYX_]

Юзаю исходники программы для передачи сообщений по локальной сети. Все работает прекрасно, но.... хотелось бы сохранять историю сообщений, ну, ... как в QIP-е, Аське и т.п.
Свои сообщения я могу добавлять куда угодно, а чужие (которые пришли мне), увы...
Вопрос: как "вытянуть" текст пришедшего мне сообщения в переменную?
(разумеется, программа будет висеть в памяти и "мониторить" все пришедшие сообщения).

[mihali4]

Юзаю исходники программы для передачи сообщений по локальной сети

Вот и ищем в исходниках, где и куда происходит прием и оттуда "вытягиваем"...

[Баламут]

Если используется функция NetMessageBufferSend (стандартный механизм форточек), то практически никак. На удаленной машине сообщение принимается и отображатся Windows Messenger (служба msgmsg). Придется как-то отлавливать ее активность. Проще написать свое.

[Stilet]

Автор, какими компонентами или средствами пользуешь?

[_SERGEYX_]

NetMessageBufferSend. В общем, используется служба отправки сообщений из WinXP.
uses WinSock, ActiveX,ComCtrls;

Ну, и поехали далее...

function GetIPAddress(name: string): string;
var
   WSAData: TWSAData;
   p: PHostEnt;
begin
   WSAStartup(WINSOCK_VERSION, WSAData);
   p := GetHostByName(PChar(name));
   Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
   WSACleanup;
end;

function CheckDomain(Domain: string): Boolean;
var
   Error: DWORD;
   HostEntry: PHostEnt;
   Data: WSAData;
begin
   Result := False;
   Error := WSAStartup(MakeWord(1, 1), Data);
   if Error = 0 then
   begin
      HostEntry := gethostbyname(PChar(Domain));
      Result := GetLastError = 0;
   end;
   WSACleanup();
end;

function LocalIP: string;
type
   TaPInAddr = array[0..10] of PInAddr;
   PaPInAddr = ^TaPInAddr;
var
   phe: PHostEnt;
   pptr: PaPInAddr;
   Buffer: array[0..63] of Char;
   I: Integer;
   GInitData: TWSAData;
begin
   WSAStartup($101, GInitData);
   Result := '';
   GetHostName(Buffer, SizeOf(Buffer));
   phe := GetHostByName(buffer);
   if phe = nil then Exit;
   pPtr := PaPInAddr(phe^.h_addr_list);
   I := 0;
   while pPtr^[I] <> nil do
   begin
      Result := inet_ntoa(pptr^[I]^);
      Inc(I);
   end;
   WSACleanup;
end;

function IPAddrToName(IPAddr: string): string;
var
   SockAddrIn: TSockAddrIn;
   HostEnt: PHostEnt;
   WSAData: TWSAData;
begin
   WSAStartup($101, WSAData);
   SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));
   HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
   if HostEnt <> nil then
      Result := StrPas(Hostent^.h_name)
   else
      Result := '';
end;

function NetSend(const sTo, sMessage: string): Boolean;
type
   PNetMessageBufferSend = ^TNetMessageBufferSend;
   TNetMessageBufferSend = function(
      servername: PWideChar;
      msgname: PWideChar;
      fromname: PWideChar;
      buf: PBYTE;
      buflen: DWORD
      ): Integer; stdcall;
var
   wMessage, wTo: PWideChar;
   i, hLib: Integer;
   NetMessageBufferSend: TNetMessageBufferSend;
begin
   Result := False;
   hLib := LoadLibrary('NetApi32.dll');
   if hlib > 0 then
   try
      @NetMessageBufferSend := GetProcAddress(hLib, 'NetMessageBufferSend');
      if @NetMessageBufferSend <> nil then
      begin
         wMessage := CoTaskMemAlloc((Length(sMessage) + 1) * sizeof(WideChar));
         try
            wTo := CoTaskMemAlloc((Length(sTo) + 1) * sizeof(WideChar));
            try
               StringToWideChar(sMessage, wMessage, Length(sMessage) + 1);
               StringToWideChar(sTo, wTo, Length(sTo) + 1);
               i := NetMessageBufferSend(nil, wTo, nil, PBYTE(wMessage),
                  (Length(sMessage) + 1) * sizeof(WideChar));
               Result := i = ERROR_SUCCESS;
               if not Result then
                  MessageBox(GetForegroundWindow, 'Сообщение не отправлено.', nil, $1010) else
                  MessageDlg('Сообщение отправлено успешно', mtInformation, [mbOk], 0);
            finally
               CoTaskMemFree(wTo);
            end;
         finally
            CoTaskMemFree(wMessage);
         end;
      end
      else
         MessageBox(GetForegroundWindow,
            'Функция NetMessageBufferSend не обнаружена.', nil, $1010);
   finally
      FreeLibrary(hLib);
   end
   else
      MessageBox(GetForegroundWindow, 'NetApi32.dll не загружена.', nil, $1010);
end;

[KORN]

если у вас добавляется весь треп в memo или richedit то ты просто на выходе сохраняй это в файл... а если хочешь что бы история постепенно добавлялась то тогда просто создай переменную tstrings и перед выходом из программы загрузи в нее старую историю затем добавь имеющийся треп из memo или richedit в зависимости от того чем ты пользуешься а потом сохраняй в файл значение переменной tstrings... я по крайней мере так делаю.... (:=