| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Несовместимость типов [D7, WinXP]
Sicilla © (2004-11-20 13:05:00)Есть такой код:
function RasMakeDialupConnection(const EntryName: string): Boolean;
var
uLastErr, dwRet: Dword;
DialParams: TRasDialParams;
hRas: TRASCONN;
bPwd: Boolean; // was the password retrieved
begin
uLastErr := 0; // Prepare dial parameters
FillChar(DialParams, SizeOf(DialParams), 0);
DialParams.dwSize := SizeOf(DialParams);
StrPLCopy(@(DialParams.szEntryName[0]), EntryName,
SizeOf(DialParams.szEntryName));
hRas := 0; // must do that before calling RasDial
// Try to retrieve user name/passowrd.
// We continue even if RasGetEntryDialParams returns error, because
// in next call RasDial will just try with empty user name/password
bPwd := False;
RasGetEntryDialParams(nil, @DialParams, bPwd);
// Call RAS API. In this particular case RasDial will not return until
// the connections is established or failed to establish.
dwRet := RasDial(nil, nil, // no dial extensions, default phonebook
@DialParams,
0, // ignored here
nil, // do not use callback - the call is synch
hRas); // receives connection handle
Result := dwRet = 0; // Connection failed... if not Result then begin
// In some cases hRas may be non-zero and the connection port
// is still opened. It is a Windows semi-bug/semi-feature.
// So I must try to close
if hRas <> 0 then
RasHangupConnection(hRas);
// RasHangup may reset uLastErr, but we need the value // returned from RasDial
uLastErr := dwRet;
end;
end;
В строчке hRas := 0;выдается ошибка о несовместимости типов.
Требуется uses Ras. Зараенне спасибо
Piter (2004-11-20 22:09:00) [1]Verg © (20.11.04 20:00) [17]
Не грузись.
Считай, что шутка...
да я не гружусь. Я просто честное слово не понял, кому ты адресовал данную фразу и что имел в виду? Это ты про RAS говорил или как? Непонятно...
Verg (2004-11-20 20:00:00) [2]
> ты собственно про что?
Не грузись.
Считай, что шутка...
Т.к. разговор все дальше ушел от предметики к "потрепаться", к чему и я собственно виноват в данном случае...
Piter (2004-11-20 19:54:00) [3]Verg © (20.11.04 19:38) [15]
У любого предоставленнного извне механизма есть свои "косяки" и нужно их поймать как можно раньше, чтобы подготовить свой продукт к ним. А вот в поимке "косяков" может помочь только взаимное сотрудничество, никак не одностороннее...
ты собственно про что?
Verg (2004-11-20 19:38:00) [4]Парни, да поймите же вы наконец... что все это дается только, и только практикой, а общие принципы остаются раз и навсегда одними и теми же.
У любого предоставленнного извне механизма есть свои "косяки" и нужно их поймать как можно раньше, чтобы подготовить свой продукт к ним. А вот в поимке "косяков" может помочь только взаимное сотрудничество, никак не одностороннее...
Verg (2004-11-20 19:31:00) [5]
> Verg, а ты вообще с RAS работал, разбираешься?
> Видимо когда-то был нужен
Нет. Сейчас я так же далек от его использования, как и от Антаркиды...
Piter (2004-11-20 19:28:00) [6]Verg © (20.11.04 18:47) [10]
спасибо, у меня есть :)
Я просто хотел уточнить. К тому же, нужен не только RAS.pas, там куча юнитов входит.
А размещены они на ftp://delphi-jedi.org/api/RAS.zip
Собственно, на сайте delphi-jedi как раз и собирают файлы импорта по различным недостаюшим областям WinApi. Я просто думал, может в какую-то поставку Дельфи уже входит этот юнит...
Verg, а ты вообще с RAS работал, разбираешься? А то у меня тут проблема - никто не смог ответить, ни на этом сайте, ни на других форумах, ни в FIDO - http://www.delphimaster.ru/cgi-bin/forum.pl?id=1099841079&n=3
Verg (2004-11-20 19:19:00) [7]
> [11] Anatoly Podgoretsky © (20.11.04 19:14)
> Verg © (20.11.04 18:47) [10]
> В поставке нет, есть только справка, но заголовочные файлы
> разбросаны по всей Сети, рекомендую брать с Джеди, там более
> качественные.
Спасибо.
Anatoly Podgoretsky (2004-11-20 19:14:00) [8]Sicilla © (20.11.04 16:58) [8]
Не волнуйся все пройдет.
Piter © (20.11.04 18:14) [9]
Не в этом дело, мы постоняно осваиваем новые области, те которыми ранее не занимались, все дело в том, как ищется эта информация.
Verg © (20.11.04 18:47) [10]
В поставке нет, есть только справка, но заголовочные файлы разбросаны по всей Сети, рекомендую брать с Джеди, там более качественные.
Verg (2004-11-20 18:47:00) [9]
> А у вас что, RAS.pas в поставку Дельфи включен?
Нет.
Я не помню откуда он у меня взялся. Видимо когда-то был нужен. Так и валяется. Вроде с torry....
Вот, возьми, может проготится
http://webfile.ru/101546
Piter (2004-11-20 18:14:00) [10]Sicilla © (20.11.04 16:58) [8]
Программирую уже 8 лет
то, чем ты занимался 8 лет явно не программирование. Ибо задавать такие элементарные вопросы...
Ты лучше почитай насчет сочетания CTRL + Click - сильно помогает в разбирательствах подобного рода...
НАРОД! А у вас что, RAS.pas в поставку Дельфи включен?
Sicilla (2004-11-20 16:58:00) [11]Программирую уже 8 лет, а сетями занялся только в этом году, так что не обессудьте.
Verg (2004-11-20 15:22:00) [12]
> [6] Anatoly Podgoretsky © (20.11.04 15:15)
> Verg © (20.11.04 15:14) [5]
> Не важно, но общая неспособность получать информацию из
> окружающей среды не приветствуется.
Согласен, не приветствуется. И что?
Anatoly Podgoretsky (2004-11-20 15:15:00) [13]Verg © (20.11.04 15:14) [5]
Не важно, но общая неспособность получать информацию из окружающей среды не приветствуется.
Verg (2004-11-20 15:14:00) [14]Ты вообще на Дельфе до этого программировал?
Verg (2004-11-20 15:13:00) [15]Нет такой ф-ции RasHangupConnection
Есть - RasHangUp
И долго, интересно я буду играть роль ходячего viewer-ер по Ras.pas ?
Sicilla (2004-11-20 15:00:00) [16]Сейчас выдает ошибку на оператор @DialParams, и на RasHangupConnection - говорит неизвестный идентификатор. Помоги плиз.
Sicilla (2004-11-20 13:55:00) [17]Был, смотрел, но пропустил. Спасибо!
Verg (2004-11-20 13:24:00) [18]hRas д.б. типа T HRasConn, а не TRASCONN
Ты бы в прототипы-то поглядывал (в модуль Ras.pas)....
| |
