|
21.05.2011, 21:14
|
#1
|
|
|
|
Рыцарь
|
Регистрация: 19.02.2010
Сообщений: 340
Популярность: 9058
Сказал(а) спасибо: 301
Поблагодарили 696 раз(а) в 278 сообщениях
|
Текст в Edit при выборе строки в ComboBox'е
нуб учит дельфи
на форме есть компонент ComboBox и Edit1
загружаю содержимое файла loginlist.txt
Код:
cbb2.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'loginlist.txt');
как сделать чтобы при выборе строки в комбобокс появлялась надпись в edit1
п.с в комбобоксе список сайтов, в edit1 надо штоб появлялись ип етих сайтов
Последний раз редактировалось 4ipolino; 21.05.2011 в 21:19.
|
|
|
2 пользователя(ей) сказали cпасибо:
|
|
21.05.2011, 21:20
|
#2
|
|
|
|
Рыцарь
|
Регистрация: 14.06.2009
Сообщений: 329
Популярность: 14571
Золото Zhyk.Ru: 4
Сказал(а) спасибо: 1,180
Поблагодарили 704 раз(а) в 392 сообщениях
|
Re: Delphi 7
|
|
|
Пользователь сказал cпасибо:
|
|
21.05.2011, 21:26
|
#3
|
|
|
|
Фельдмаршал
|
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
|
Re: Delphi 7
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот, Девизхак, OutFocusBot, OutFocusBot ver 3 (freepvp), PWMultiHack ver 3, AutoRespawn.
JD: JDMultiHack, JDFlooder, JDBot.
Статьи: Отключаем UAC, Ищем базовый адрес Perfect World, "Патчер памяти" или "Пишем флайхак", "Патчер памяти 2" или "Пишем Джампхак", "Поиск инжектов" или "Наш код в чужом процессе"
|
|
|
Пользователь сказал cпасибо:
|
|
21.05.2011, 21:32
|
#4
|
|
|
|
Рыцарь
|
Регистрация: 19.02.2010
Сообщений: 340
Популярность: 9058
Сказал(а) спасибо: 301
Поблагодарили 696 раз(а) в 278 сообщениях
|
Re: Delphi 7
каким методом можно засунуть туда имено ип сайта а не выбраное содержимое ?
в логинлисте могу написать адреса сайтов и их ип через : или другой знак, или кто подскажет как пропинговать сайт и записать ип в edit1?
Добавлено через 2 часа 44 минуты
Кто ищет тот всегда найдет
мб кому надо будет:
добавляем Winsock в uses
Код:
function HostToIP(Name: string; var Ip: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101, wsdata);
try
gethostname (hostName, sizeof (hostName));
StrPCopy(hostName, Name);
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then begin
IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
end
else
Result := False;
end
else
Result := False
else begin
Result := False;
end;
finally
WSACleanup;
end
end;
Код:
procedure TForm1.cbb2Select(Sender: TObject);
var
IP: string;
begin
if HostToIp(cbb2.Text, IP) then edit1.Text:= IP;
end;
спс всем кто принимал участие
темку можно закривать
Последний раз редактировалось 4ipolino; 22.05.2011 в 00:39.
Причина: Добавлено сообщение
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 11:35.
|
|