Главная страница
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.019 c
14-44455
race1
2003-03-30 15:46
2003.04.14
read speed


1-44203
grusty
2003-04-01 16:24
2003.04.14
Можно ли в качастве переменной использовать компонент?


6-44290
Ruf
2003-02-20 12:41
2003.04.14
доступ к инету


14-44370
Scotch
2003-03-25 23:25
2003.04.14
Вопрос по хостингу


14-44362
Демонов Е.В.
2003-03-31 04:20
2003.04.14
Сигмент : Смещение