Для тех кто шарит на Delphi...
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Для тех кто шарит на Delphi... - 2005-08-25 15:23:28
|
|
|
Maslo
Сообщений: 717
Оценки: 0
Присоединился: 2005-08-11 21:51:47
|
Как не используя VCL создать утилиту Ping?[sm=9.gif]
|
|
|
|
|
Для тех кто шарит на Delphi... - 2005-08-25 23:44:45
|
|
|
Ker Laeda
Сообщений: 38
Оценки: 0
Присоединился: 2005-08-21 20:13:13
|
Всымысле консольное приложение? [sm=sm128.gif]
|
|
|
|
|
Для тех кто шарит на Delphi... - 2005-08-26 00:43:20
|
|
|
jEnizix
Сообщений: 1797
Оценки: 0
Присоединился: 2004-12-30 11:03:50
|
тему нада перенести в Программирование
|
|
|
|
|
Для тех кто шарит на Delphi... - 2005-08-26 15:49:52
|
|
|
Maslo
Сообщений: 717
Оценки: 0
Присоединился: 2005-08-11 21:51:47
|
Да, консольное.
|
|
|
|
|
Для тех кто шарит на Delphi... - 2005-08-26 23:15:03
|
|
|
gackt
Сообщений: 31
Оценки: 0
Присоединился: 2004-12-13 08:13:32
|
Юзай Indy … скачать можно на indyproject.org
Выглядит это примерно так:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
IdIcmpClient, classes;
type TP= class (TоЬjесt)
public
procedure Rout(ASender: TComponent; const AReplyStatus: TReplyStatus);
end;
var
i:TIdICMPClient;
H:String;
P:TP;
c:Integer;
procedure TP.Rout(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
Writeln('RTT = '+IntToStr(AReplyStatus.MsRoundTripTime)+' ms');
dec©;
end;
begin
i:=TIdICMPClient.Create(nil);
i.TTL:=33;
Writeln('Enter host');
Readln(H);
Writeln('Enter count');
Readln©;
i.Host:=H;
P:=TP.Create;
i.OnReply:=P.Rout;
i.ReceiveTimeout:=1000;
While C>0 do
i.Ping('1234567890',1);
Readln;
end.
|
|
|
|
|
Для тех кто шарит на Delphi... - 2005-08-29 23:24:37
|
|
|
HellRage
Сообщений: 60
Оценки: 0
Присоединился: 2005-02-27 14:17:52
|
1) Indy ставится по умолчанию начиная, по-моему, с 6 версии Delphi.
2) Maslo, уржаться можно!!![sm=9.gif][sm=9.gif][sm=9.gif] Нашёл на чём консольку писать. =) Хотя я большой поклонник Дельфей.
|
|
|
|
|
Для тех кто шарит на Delphi... - 2005-09-01 15:39:38
|
|
|
Maslo
Сообщений: 717
Оценки: 0
Присоединился: 2005-08-11 21:51:47
|
А че, на Delphi реально консольки писать. Удобно и практично!!![sm=001.gif]
|
|
|
|
|
|
