| Aptem |
| Отправлено: 28.07.2003, 03:22 |
|
Мастер участка
Группа: Участник
Сообщений: 349
|
Скажите, пожалуйста, как мне сделать dial-up из Builder'a.
Спасибо за внимание !
|
|
| novice |
| Отправлено: 01.08.2003, 19:36 |
|
Не зарегистрирован
|
возьми и сделай, или задай по конкретней вопрос |
|
| Гость_Vlad |
| Отправлено: 04.08.2003, 08:34 |
|
Не зарегистрирован
|
Можно вызвать стандартный windows диалер и подождать пока не произойдет соединение
bool TForm1::SendPost(bool modem)
{
String con;
if(modem) //если работаю через модем
{
//читаю из регистри какое есть по умолчанию соединение
TRegistry * Reg= new TRegistry;
Reg->RootKey = HKEY_CURRENT_USER;
if (Reg->OpenKey("\\RemoteAccess", true) )
{
con=Reg->ReadString("Default");
Reg->CloseKey();
if(con.Length()<1)
return 0;
con="rundll32.exe rnaui.dll,RnaDial " + con;
STARTUPINFO si;
PROCESS_INFORMATION pi;
ZeroMemory( &si, sizeof(si) );
si.cb = sizeof(si);
if( !CreateProcess( NULL, // No module name (use command line).
con.c_str(), // Command line.
NULL, // Process handle not inheritable.
NULL, FALSE, 0, NULL, NULL, &si, &pi ) )
{
delete Reg;
return 0;
}
//жду пока наберет и с конектится
WaitForSingleObject( pi.hProcess, INFINITE );
CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );
}
else
{
delete Reg;
return 0;
}
}
Если хочешь работать через сеть, то тут тогда не так.
 |
|
|
