Форум: "WinAPI";
Текущий архив: 2002.06.13;
Скачать: [xml.tar.bz2];
ВнизКак вызвать функцию API NetMessageBufferSend?? Найти похожие ветки
← →
nikulin (2002-04-10 19:28) [0]Помогите обьясните пож-ста как вызвать ф-ю?
Как эти параметры LPTSTR и т.д. обьявлять ??
NET_API_STATUS NetMessageBufferSend(
LPTSTR servername,
LPTSTR msgname,
LPTSTR fromname,
LPBYTE buf,
DWORD buflen
);
← →
Tosov (2002-04-10 22:59) [1]Функция будет выглядеть примерно так:
Function NetMessageBufferSend (
servername: LPCWSTR;
msgname: LPCWSTR;
fromname: LPCWSTR;
buf: Pointer;
buflen: DWORD
): longint; stdcall; external "netapi32.dll";
Пример использования - http://delphi.xonix.ru/faq/show.php?m=lan&n=2
PS.А в MSDN параметры типа LPCWSTR (PWideChar), а не LPTSTR (PChar)
← →
Yuri Btr (2002-04-11 12:03) [2]var
Form1: TForm1;
Function NetMessageBufferSend (servername: LPCWSTR; msgname: LPCWSTR; fromname: LPCWSTR; buf: Pointer; buflen: DWORD): longint; stdcall; external "netapi32.dll";
implementation
----------------------------------------------------------------
procedure *************
var
s, text:string;
begin
HostName:=nil;
SName := nil;
s:="RecepientName";
size := SizeOf(WideChar)*Length(s)+1;
GetMem (buf, Size);
RName := StringToWideChar (s, buf, Length (s) + 1);
s:="Hello";
size := SizeOf(WideChar)*Length(s)+1;
GetMem (buf, Size);
text := StringToWideChar (s, buf, Length (s) + 1);
size := SizeOf(WideChar)*Length(text)+1;
GetMem (buf, Size);
PWideChar (Buf) := StringToWideChar (text, buf, Length (text)+1);
If NetMessageBufferSend (HostName, RName, SName, buf, size) <> NO_ERROR
then ShowMessage ("Ошибка!");
end;
← →
Yuri Btr (2002-04-11 12:10) [3]Сорри...
добавить в раздел var:
HostName,RName, SName: LPCWSTR;
buf: Pointer;
size: Integer;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.06.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c