VPF::как связать тип данных и указатель из функции

gibz

Дата 15.1.2007, 01:04 (ссылка)

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

Загрузка ...

Новичок

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

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

код такой

Код


type
MPR_SERVER_HANDLE=THandle;
type
MPR_SERVER_0 = record
fLanOnlyMode: BOOL;
dwUpTime: DWORD;
dwTotalPorts: DWORD;
dwPortsInUse: DWORD;
end;
function MprAdminServerConnect(lpwsServerName: PWideChar; var phMprServer: MPR_SERVER_HANDLE): DWord; stdcall; external 'mprapi.dll';
function MprAdminServerGetInfo(phMprServer: MPR_SERVER_HANDLE; dwLevel: DWord; var lplpBuffer: Pointer): DWord; stdcall; external 'mprapi.dll';
procedure MprAdminServerDisconnect(var phMprServer: THandle); stdcall; external 'mprapi.dll';

var
MprServer: MPR_SERVER_HANDLE;
MprErrors: DWord;
lpBuffer: Pointer;
ServInfo: MPR_SERVER_0;
begin
new(lpBuffer);
MprErrors:=MprAdminServerConnect('hanymej',MprServer);
writeln(MprErrors);
MprErrors:=MprAdminServerGetInfo(MprServer,0,lpBuffer);
writeln(MprErrors);
MprAdminServerDisconnect(MprServer);
end.

как вывести данные полученные от MprAdminServerGetInfo?

Yanis

Дата 15.1.2007, 12:01 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 72
Всего: 111

Не вижу здесь кода... Только неразборный текст smile

lpBuffer после вызова MprAdminServerGetInfo указывает на структуру MPR_SERVER_0. Ключевое слово структура.

Добавлено @ 12:08

Код

ServInfo := MPR_SERVER_0(lpBuffer^);

Это сообщение отредактировал(а) Yanis - 15.1.2007, 12:02

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

*щёлк*

bems

Дата 16.1.2007, 01:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

а где проблема?

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

Обижено школьников: 8

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