| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ПРЕОБРАЗОВАТЬ String в array[0..128] of char !!!! [D6, XP]
except © (2006-04-02 04:26:00)Помогите люди добрые !!! Ну никак не получается сделать. Кстати, такая тема уже была, но эту ветку похоже удалили! HELP!
Anatoly Podgoretsky (2006-04-03 09:15:00) [1]А это неправильно?
except (2006-04-03 01:20:00) [2]Ну пошeл оффтоп своим ручьем!!!!! :)
Да, кстати, я пишу программу звонилку. У меня есть файлик RAS.PAS, так вот, есть ф-ция, с помощью которой можно создать подключение, и еще ф-ция, с помощью которой можно дозвониться до провайдера. Брал с Delphi World. Типичный вопрос: как этим пользоваться??? Допустим, в ф-ции можно указать номер телефона и Имя и пароль. Сохраняю типа введенные данные в INI, гружу, но в ф-ции дозвона сказано: Использовать в качестве номера (и всего остального) можно только array of char.
Вот ф-ция дозвона:
function DialProvider(connection: string): boolean;
// connection - имя учетной записи
var
pars: TRasDialParams;
hRas: ThrasConn;
r: integer;
begin
hRas := 0;
strpcopy(pars.szEntryName, connection); // имя учетной записи
pars.szPhoneNumber := ''; // номеp телефона - по умолчанию
pars.szcallbacknumber := ''; // callback нам не нужен
pars.szUserName := ''; // логин - по умолчанию
pars.szPassWord := ''; // паpоль - по умолчанию
pars.szDomain := ''; // аналогично с домейном
pars.dwSize := Sizeof(TRasDialParams); // вычисляем pазмеp записи
r := rasdial(nil, nil, pars, 0, nil, hRas); // звоним
if r <> 0 then
begin // если что-то неполучилось, то
rasHangUp(hRas); // сбpасываем соединение
result := false; // ф-ция тепеpь веpнет false
end
else
result := true; // а если все ок - то true.
end;
Leonid Troyanovsky (2006-04-02 22:50:00) [3]
> jack128 © (02.04.06 22:16) [21]
> Вот только не надо Анатолия спаивать, он еще другим пригодится
> :-))
Тады, сам за них все это выпьешь ;)
Бо, не токмо веселия ради, а и за здоровье для.
--
Regards, LVT.
jack128 (2006-04-02 22:16:00) [4]Leonid Troyanovsky © (02.04.06 21:51) [20]
Анатолий - тебе не только коньяку, но текилы, кальвадоса, рома
Вот только не надо Анатолия спаивать, он еще другим пригодится :-))
Leonid Troyanovsky (2006-04-02 21:51:00) [5]
> Anatoly Podgoretsky © (02.04.06 21:46) [18]
> Т.е., коньяку я ИШ задолжал :)
> А мне :-)
Анатолий - тебе не только коньяку, но текилы, кальвадоса, рома,
и др., бо вы с Толиком Тенцером - мои сэнсеи.
--
Regards, LVT.
Malik (2006-04-02 21:49:00) [6]За что?
Anatoly Podgoretsky (2006-04-02 21:46:00) [7]Leonid Troyanovsky © (02.04.06 21:25) [14]
Т.е., коньяку я ИШ задолжал :)
А мне :-)
Malik (2006-04-02 21:46:00) [8]Спасибо!!!
Leonid Troyanovsky (2006-04-02 21:39:00) [9]
> Malik © (02.04.06 21:30) [15]
> А вообще есть приличный способ ну скажем на форумах много
> участвовать?
Конечно. Тут, кроме мня, все приличные :)
Т.е., терпение и труд все перетрут.
Даже на моих глазах (год с небольшим) многие выросли в Мастеров.
Ну, а для тебя - все в твоих руках - начало пути, так сказать.
--
Regards, LVT.
Malik (2006-04-02 21:30:00) [10]А вообще есть приличный способ ну скажем на форумах много участвовать?
Leonid Troyanovsky (2006-04-02 21:25:00) [11]
> Джо © (02.04.06 21:17) [12]
> Вагон пива, на этот счет двух мнений быть не может :0)
Да не, обычным образом - по блату.
Могу лишь предположить, что учли заслуги в fido, IMHO.
Т.е., коньяку я ИШ задолжал :)
--
Regards, LVT.
Malik (2006-04-02 21:21:00) [12]Врядли (Джо)!!! :)))
Джо (2006-04-02 21:17:00) [13]> [11] Malik © (02.04.06 21:15)
> у меня вопрос не по теме как вы (Leonid Troyanovsky) стали
> delphimaster'ом?
Вагон пива, на этот счет двух мнений быть не может :0)
Malik (2006-04-02 21:15:00) [14]у меня вопрос не по теме как вы (Leonid Troyanovsky) стали delphimaster'ом?
Leonid Troyanovsky (2006-04-02 20:56:00) [15]
> Malik © (02.04.06 20:44) [9]
> а я то думал, моя ожибка в неиспользовании
> методов придложенных самой Delphi, и написании
Ну, так это следствие. Не случайно ж [1]-[4].
Т.е., вероятность ошибки при собс-ручной реализации
возрастает на порядок.
--
Regards, LVT.
Malik (2006-04-02 20:44:00) [16]Всё понял это была грубешая опечатка, разумеется там в место "s" дожен быть "i", а я то думал, моя ожибка в неиспользовании методов придложенных самой Delphi, и написании собстенного кода. :)))
Leonid Troyanovsky (2006-04-02 20:26:00) [17]
> Malik © (02.04.06 20:20) [7]
> >Оч. плохо.
> Почему?
ch[s]
--
Regards, LVT.
Malik (2006-04-02 20:20:00) [18]> Leonid Troyanovsky © (02.04.06 19:45) [6]
> Оч. плохо.
Почему?
Leonid Troyanovsky (2006-04-02 19:45:00) [19]
> Malik © (02.04.06 18:34) [5]
> for i:=0 to (length(s)-1) do begin
> ch[s]:=s[i+1];
Оч. плохо.
--
Regards, LVT.
Malik (2006-04-02 18:34:00) [20]
...
var ch:array [0..128] of char;
s:string;
...
for i:=0 to (length(s)-1) do begin
ch[s]:=s[i+1];
end;
...
| |
Страницы: 