Скачать: CL | DM;

Как вызвать функцию 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c