Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

Variable required   Найти похожие ветки 

 
Jel ©   (2003-04-01 11:11) [0]

Помогите люди добрые. Крыша медленно съезжает :(

Пишу.

function TForm1.Connect(EntryName, User, Password: string) : integer;
var RDP : TRasDialParams;
HRasCon : THRasConn;
begin
ZeroMemory(@RDP, SizeOf(RDP));
RDP.dwSize := SizeOf(RDP);
Move(EntryName[1], RDP.szEntryName, Length(EntryName));
Move(User[1], RDP.szUserName, Length(User));
Move(Password[1], RDP.szPassword, Length(Password));
HRasCon := 0;
Dial_Done := false;
RasDial(nil, nil, RDP, 0, @RasDialCallBack, HRasCon);
// ^ Пишет ошибка здесь
repeat Application.ProcessMessages until Dial_Done;
Result := HRasCon;
end;

procedure TForm1.RasDialCallBack(MSG: integer; State: TRasConnState; Error: Integer); stdcall;
begin
Dial_Done := (State >= RASCS_DONE) or (Error <> 0);
Memo1.Lines.Add(format("Dial state %d, error code %d",[State, Error]));
end;


Компилятор ругается - Variable required и показывает на строку с коментарием. А чем ему HRasCon не variable?

Функция описана так :


function RasDial(
lpRasDialExt: LPRasDialExtensions;
lpszPhoneBook: PChar;
var params: TRasDialParams;
dwNotifierType: Longint;
lpNotifier: Pointer;
var rasconn: THRasConn
): Longint; stdcall;


Подскажите, плиз - где грабли-то?


 
icWasya ©   (2003-04-01 11:54) [1]

У тебя RasDialCallBack - это метод и просто привести указатель на метод к простому указателю нельзя.


 
Anatoly Podgoretsky ©   (2003-04-01 12:02) [2]

Привести можно, только работать не будет, несовпадение количества параметров и соглашения о вызове.


 
Jel ©   (2003-04-01 12:06) [3]

Понял, спасибо.



Страницы: 1 вся ветка

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
3-44037
Timer
2003-03-25 19:38
2003.04.14
RTF в Memo


7-44465
Mehal'
2003-02-18 15:45
2003.04.14
Как напечатать содержимое WebBrowser ???


3-44063
galexis
2003-03-21 12:56
2003.04.14
Создание пользователей БД


6-44299
avm
2003-02-19 17:32
2003.04.14
удалённый реестр


1-44266
homozoid
2003-04-02 14:33
2003.04.14
Нормальный алгоритм для подсветки слов