Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

ламерский вопрос   Найти похожие ветки 

 
Алексей Ким   (2002-10-11 12:16) [0]

вопрос ламо но как пользоваться GetTcpStatistics?
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iphlp/iphlp/gettcpstatistics.asp
тут есть его описание, там есть Library: Use Iphlpapi.lib.
где этот iphlpapi.lib берут?


 
Wonder   (2002-10-11 12:25) [1]

\windows\system\iphlpapi.dll


 
Алексей Ким   (2002-10-11 13:35) [2]

а еще немного помощи можно?

TTCPStat = record
RtoAlgorithm,
RtoMin,
RtoMax,
MaxConn,
ActiveOpens,
PassiveOpens,
AttemptFails,
EstabResets,
CurrEstab,
InSegs,
OutSegs,
RetransSegs,
InErrs,
OutRsts,
NumConns: DWORD;
end;
function GetTcpStatistics(out TTCPStat): DWORD; external "iphlpapi.dll";

var
Form1: TForm1;
i:TTCPStat;

...
procedure TForm1.Button1Click(Sender: TObject);
begin
GetTCPStatistics(i);
end;

компилится но выдает ошибку при нажатии на кнопку что я делаю неправильно(если хоть чтото я делаю правильно =)


 
Wonder   (2002-10-11 13:41) [3]

PMIB_TCPSTATS pStats

А буковка "р" в объявлении переменной тебе ничего не подсказывает. Не говоря уже об описании этой ф-ции:

pStats
[out] Pointer to a MIB_TCPSTATS structure that receives the TCP statistics for the local computer.


 
Алексей Ким   (2002-10-11 17:13) [4]

... немного уточнить можно(жираф я что поделать...)?
type
...
PTTCPStat = ^TTCPStat;
TTCPStat = record
RtoAlgorithm,
...
NumConns: DWORD;
end;

var
i:TTCPStat;
p:PTTCPStat;
...

gettcpstatistics(p);


 
Wonder   (2002-10-11 17:23) [5]

Нечто похожее (если описание стр-ры верное). Только я этим не пользовался и не собираюсь. Если выдаст ошибку, то в следующий раз пиши какую.

А на кой тебе объявление i?


 
abcdefg   (2002-10-11 17:28) [6]

осталось с пердидущих опытов =) ошибку access violation


 
abcdefg   (2002-10-11 17:34) [7]

пред тоесть =)



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
14-28264
Mad_Ghost
2002-11-18 13:42
2002.12.09
как в Delphi использовать XML?


14-28206
Праведник
2002-11-15 22:34
2002.12.09
Звук в Делфи


1-27922
Diamond Cat
2002-11-28 00:32
2002.12.09
отправка факсов


14-28248
LongIsland
2002-11-18 11:31
2002.12.09
Free Pascal


3-27807
Кирилл_
2002-11-20 11:19
2002.12.09
О попытках занести null в поле number





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский