ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
26.07.2007, 08:33
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Я чего то не найду компоненту Tcp1, на какой вкладочке искать... Извинтиляюсь за глупые вопросы...
|
|
|
26.07.2007, 09:24
|
|
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
Провел на форуме:
467372
Репутация:
212
|
|
b2mbey, имхо тоже самое:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if TcpClient1.LocalHostAddr = '0.0.0.0' then
ShowMessage('Your not connected!');
end;
TCPClient на вкладке Internet.
Последний раз редактировалось WAR!9G; 26.07.2007 в 09:28..
|
|
|
|
26.07.2007, 09:37
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Аха извняюсь что не успел написать, но я это уже проделал, к сожаленью эта фунция возвращает не 0.0.0.0, а ххх.0.0.х где х-это цифры причем на разнных машинах, разные... Да и все бывает же такое что ты не в локалке, но в инете, например подключение ДиалАп
|
|
|
|
26.07.2007, 09:37
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Аха извняюсь что не успел написать, но я это уже проделал, к сожаленью эта фунция возвращает не 0.0.0.0, а ххх.0.0.х где х-это цифры причем на разнных машинах, разные... Да и все бывает же такое что ты не в локалке, но в инете, например подключение ДиалАп, поэтому хотелось бы все таки знать конкретно, подключен или нет, может все таки вернуться к пинговке сайта???
|
|
|
|
26.07.2007, 10:09
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Условие выполняется, когда нажимаешь "Нет". Смени <> на =
|
|
|
|
26.07.2007, 10:17
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Сообщение от Joker-jar
Условие выполняется, когда нажимаешь "Нет". Смени <> на =
Ты не думай,что я ламер!!! :-))) Я знаю много языков программирования, в том числе и Паскаль, вот решил и Дельфи подучить для шалости!!!
Проблема не в этом... к сожаленью...
ДА и не работает это, я пробовал он возвращает не то что мы ожидаем...
Там видишь процедура создания формы, а мы ее как бы затыкаем... эта процедура работает если ее вставить не в этой процедуре...
Хым... масло мясляное :-)))
Короче я тоже самое вставил в кнопку и это работает...
Но я уже обошел это... лучше скажи как с подключением к интернет быть... :-)))
Последний раз редактировалось b2mbey; 26.07.2007 в 10:20..
|
|
|
|
26.07.2007, 11:17
|
|
Участник форума
Регистрация: 27.10.2006
Сообщений: 115
Провел на форуме:
820289
Репутация:
119
|
|
и еще почему не работате вот это
procedure TForm1.FormCreate(Sender: TObject);
begin
If Messagebox(0,'Закроем???','Вопрос',MB _YesNo) <> IDYES Then
Form1.Close;
end;
Даже если вместо Form1.Close; ставлю Exit; не работает...
Если тебе нужен выход по кнопке Да то я б сделал вот так:
procedure TForm1.FormCreate(Sender: TObject);
begin
case Application.MessageBox('Закрыть приложение?','Вопрос:',MB_YesNo + Mb_iconquestion) of
Idyes: form1.Close;
IdNo: showmessage('Не закрываем');
end;
end;
|
|
|
|
26.07.2007, 13:52
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Народ почему вот это не работает:
str := 'C:\1.lnk'
ShellExecute(0, 'explore', Pchar(str), nil, nil, SW_SHOWNORMAL);
WinExec(Pchar(str),SW_SHOWNORMAL);
причем если вместо Pchar(str) поставить 'C:\1.lnk' - это работает!!!
Не пойму... Дельфи глючит???
|
|
|
|
26.07.2007, 14:16
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Сообщение от b2mbey
Народ почему вот это не работает:
str := 'C:\1.lnk'
ShellExecute(0, 'explore', Pchar(str), nil, nil, SW_SHOWNORMAL);
WinExec(Pchar(str),SW_SHOWNORMAL);
причем если вместо Pchar(str) поставить 'C:\1.lnk' - это работает!!!
Не пойму... Дельфи глючит???
Как это ни странно, но вот рабочий вариант:
ShellExecute(0, 'open', Pchar(ListBox1.Items.Strings[i]), nil, Pchar(Form2.DirectoryListBox1.Directory), SW_SHOWNORMAL);
Хотя я тоже мог сразу догадаться  , про парамметр Директория.... хотя с ехе работает, когда явно указываешь ярлык тоже работает и без этого параметра...
Извините за мой русский...
Последний раз редактировалось b2mbey; 26.07.2007 в 14:36..
|
|
|
|
26.07.2007, 13:59
|
|
Новичок
Регистрация: 26.07.2007
Сообщений: 1
Провел на форуме:
1064
Репутация:
0
|
|
При попытке создания базы данных и обращения к программе Database Desktop выдается сообщение: Cannot load language driver
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид