//это объявление
function NetScheduleJobAdd (var Servername:LPWSTR; var Buffer:LPBYTE; var JobId:LPDWORD):NET_API_STATUS; external 'netapi32.dll';

//это переменные
var MYJOB : AT_INFO;
MYJID : DWORD;
ATRES : NET_API_STATUS;
server: array [0..255] of WideChar;
cmd: array [0..1023] of WideChar;
...
тут чёта делаю
...

//это вызов
ATRES:=NetScheduleJobAdd (@server, @MYJOB, @MYJID);

пишет "Types of actual and fromal parameters must be identical"
как ему объяснить, что я передаю то, что нужно?

Цитата(weiss @ 13.2.2003, 11:19)

//это объявление function NetScheduleJobAdd (var Servername:LPWSTR; var Buffer:LPBYTE; var JobId:LPDWORD):NET_API_STATUS; external 'netapi32.dll'; //это переменные var MYJOB : AT_INFO;      MYJID : DWORD;      ATRES : NET_API_STATUS;      server: array [0..255]  of WideChar;      cmd:    array [0..1023] of WideChar; ... тут чёта делаю ... //это вызов     ATRES:=NetScheduleJobAdd (@server, @MYJOB, @MYJID); пишет "Types of actual and fromal parameters must be identical" как ему объяснить, что я передаю то, что нужно?

1. В описании параметров функции убери VAR, LPBYTE - это тот же Pointer, т.е. должно быть так:

Код

function NetScheduleJobAdd (Servername:LPWSTR; Buffer:Pointer;  JobId:LPDWORD):NET_API_STATUS; external 'netapi32.dll';

2. Объявление server лучше поменять на

Код

server: WideString;

Так будет проще присваивать ему строку, например

Код

server:= 'PDCServer';

Это сообщение отредактировал(а) SmaLL - 14.2.2003, 00:52

Нельзя передавать адреса переменных как var параметры. Странновато определение этой экспортной функции - обычно имеет место передача указателей, а не адресов указателей.

Цитата(Unregistered @ 13.2.2003, 17:23)

Нельзя передавать адреса переменных как var параметры. Странновато определение этой экспортной функции - обычно имеет место передача указателей, а не адресов указателей.

Описание правильное, в хелпе WinAPI так и написано, любит Билл брать адреса указателей

Если dll используется как OLE сервер автоматизации, то сначало надо создать переменную типа variant, затем используя ф-цию CreateOleObject создается объект и присваевается этой переменной

Код

uses ComCtrls, ComObj; var Registr: Variant; begin Registr := createoleobject('nameobject.namefunction'); {теперь работать как с переменной} Registr.nameparametr := 2; Edit1.Text := Registr.nameparametr2; end;

такой сервер существует только в текущем модуле и из др. модулей недоступен.

Нифига, мужики. Можно с варами а можно и без них, вот так:

function NetScheduleJobAdd (var Servername: WideString; var Buffer:BYTE; var JobId:DWORD):NET_API_STATUS; stdcall; external 'netapi32.dll';

или

function NetScheduleJobAdd (Servername: LPWSTR; Buffer:LPBYTE; JobId:LPDWORD):NET_API_STATUS; stdcall; external 'netapi32.dll';


а ошибка была в объявлении:
type
(* это "сишное" описание
typedef struct _AT_INFO {
DWORD_PTR JobTime;
DWORD DaysOfMonth;
UCHAR DaysOfWeek;
UCHAR Flags;
LPWSTR Command;
} AT_INFO, *PAT_INFO, *LPAT_INFO;
конец *)

_AT_INFO = PACKED record
JobTime: DWORD;
DaysOfMonthWORD;
DaysOfWeek: UCHAR;
Flags: UCHAR;
Command: LPWSTR;
end;
AT_INFO = _AT_INFO;
PAT_INFO = ^AT_INFO;
LPAT_INFO = ^AT_INFO;


PACKED писать не надо было в строке PACKED record

теперь всё работает, всем спасибо за внимание.

Цитата

Можно с варами а можно и без них, вот так

Можно. Но передать адрес как var параметр все равно ты не можешь, потому как адрес не является переменной. То есть это не откомпилируется:

Код

procedure ss(var a:PInteger); begin end; procedure proc; var  c:integer; begin  ss(@c); end;

Это сообщение отредактировал(а) Fantasist - 18.2.2003, 05:56