|
Вопрос # 1 874/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Установил себе Delphi 2009 и получил несколько проблем.
Перестали компилироваться проекты использующие модули IPHelper и IPHLPAPI. Помогите разобраться связано ли это с (см. приложение к вопросу).
Если связано, то как подправить эти модули, чтобы они заработали под Delphi 2009 ?
И ещё один нюанс - если из этих модулей использовать выборочно функции не вызывающие ошибки при компиляции, то даже явно указав в программе активность какого сетевого интерфейса я хочу отслеживать (входящего, исходящего трафика) - она не отслеживается.
Можно ли всё это дело как-то подправить, и как ?
 |
Вопрос задал: Сергей П. (статус: Посетитель)
Вопрос отправлен: 4 сентября 2008, 12:17
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 23; последнее сообщение — 8 сентября 2008, 14:14; участников в обсуждении: 2.
Страницы: [1] [2] [Следующая »]
|
Вадим К (статус: Академик), 4 сентября 2008, 13:27 [#1]:
Эти модули стандартные? просто я не нахожу их под 7 делфи. Если нестандартные, то вполне может быть. Но можно взять и заменить все вхождение String на AnsiString и должно решиться.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Сергей П. (статус: Посетитель), 4 сентября 2008, 19:45 [#2]:
Модули не стандартные, но очень часто используются, в частности в программе Net_traff_monitor, которая выложена на данном сайте. String на AnsiString попробую заменить. Странно что сети не видит. Функция с помощью которой можно считать входящий/исходяший трафик работает (по крайней мере ошибку не выдает), но возвращает не понятную константу и активности не видно.
|
|
|
Сергей П. (статус: Посетитель), 4 сентября 2008, 20:14 [#3]:
Все заменил, ошибка на месте.
Интересно, а что теперь к примеру с функцией IntToStr делать ?
Вот так писать:
MyString:=AnsiString(IntToStr(MyInteger)); ?
|
|
|
Сергей П. (статус: Посетитель), 4 сентября 2008, 21:39 [#4]:
Вот чем наполнились все мои проекты:
[DCC Warning] Unit2.pas(107): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[DCC Warning] Unit2.pas(260): W1057 Implicit string cast from 'AnsiString' to 'string'
И как с этим теперь бороться ? Не сосчитать сколько стандартных функций возвращает строковый тип, как быть, чего то я не понимаю.
^Это просто мысли вслух^
|
|
|
Сергей П. (статус: Посетитель), 5 сентября 2008, 13:46 [#5]:
А не подскажете, стандартными средствами Delphi можно добраться до значений вх/исх трафика, тех что можно посмотреть в "Состоянии соединения" в пунктах "Получено/Отправлено" ? Мне для моей задачи нужны только эти данные, а в упомянутых выше модулях, простой заменой указанных типов кажется всё не ограничивается, что-то ещё упускаю из виду или просто не знаю куда посмотреть.
|
|
|
Вадим К (статус: Академик), 5 сентября 2008, 14:19 [#6]:
чувствую, надо мне качать Delphi2009. Телепат с меня плохой. А кода, который будет там заведомо работать - мало. А всё потому, что многие программисты разленились и полагались на то, что один символ - один байт.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Сергей П. (статус: Посетитель), 5 сентября 2008, 14:36 [#7]:
Я вот погуглил ещё разок на тему учета трафика. Процентов 90 все используют IPHelper и IPHLPAPI, остальные 10% используют какие-то очень хитрые методы. Неужели ничего стандартного и попроще нет ?
|
|
|
Вадим К (статус: Академик), 5 сентября 2008, 14:44 [#8]:
ну думаю можно подчитывать с специальной ветки реестра. Но решение с IPHelper и IPHLPAPI обкатано и используется повсеместно.
Есть ещё один вариант - в настройках компилятора отключить использования юникода. Он тогда должен работать как 2007 делфи.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Сергей П. (статус: Посетитель), 5 сентября 2008, 14:52 [#9]:
А в этой процедуре не посмотрите, что бы вы изменили с учетом новшеств.
procedure TMainForm.tmrTrafficTimer(Sender: TObject);
// Вспомогательная функция, преобразующая МАС адрес к "нормальному" виду
//Определяем специальный тип, чтобы можно было передать в функцию массив
type TMAC = array [0..7] of Byte;
//В качестве первого значения массив, второе значение, размер данных в массиве
function GetMAC(Value: TMAC; Length: DWORD): String;
var
i: Integer;
p : PChar;
begin
if Length = 0 then Result := '00-00-00-00-00-00' else
begin
Result := '';
for i:= 0 to Length -2 do
Result := Result + IntToHex(Value[i],2)+'-';
Result := Result + IntToHex(Value[Length-1],2);
end;
end;
Первая же ошибка указывает на него, а точнее на строчку
Result := Result + IntToHex(Value[i],2)+'-';
Отключить юникод попробую, хотя не знаю пока как, но это все равно будет временным решением.
|
|
|
Вадим К (статус: Академик), 5 сентября 2008, 14:59 [#10]:
IntToHex возвращает строку. А вот юникодную или нет - я не знаю. Если сама функция GetMAC будет возвращаеть не юникод, то можно переписать IntToHex (в данном случае это очень просто).
Замечание. Если говорите "выводит ошибку" - приводите саму ошибку. Если приводите кусок исходного кода, и ошибки в нём - делайте их привязку - иногда сложно догадаться, где там 19, а где 39 строка в коде.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Сергей П. (статус: Посетитель), 5 сентября 2008, 15:04 [#11]:
Прошу прощения. Ошибка:
First chance exception at $757B42EB. Exception class EAccessViolation with message 'Access violation at address 00488033 in module 'Demo.exe'. Read of address 00134000'. Process Demo.exe (3996)
|
|
|
Сергей П. (статус: Посетитель), 5 сентября 2008, 15:07 [#12]:
IntToHex возвращает AnsiString, судя по встроенному хелпу.
|
|
|
Вадим К (статус: Академик), 5 сентября 2008, 15:10 [#13]:
Хелп может ошибаться. Доверять надо исходниками. В них сила.
Во вторых, надо различать ошибки времени компиляции и времени исполнения. У Вас - вторая, а пишете, как будто времени компиляции.
скорее всего причина в передаваемом параметре Length. Попробуйте сделать контроль, где то так
function GetMAC(Value: TMAC; Length: DWORD): String;
var
i: Integer;
p : PChar;
begin
Assert(length>7,'Ops!, length = '+inttostr(length)); //<====
if Length = 0 then Result := '00-00-00-00-00-00' else
begin
Result := '';
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Сергей П. (статус: Посетитель), 5 сентября 2008, 15:16 [#14]:
Вот чего получил
First chance exception at $757B42EB. Exception class EAssertionFailed with message 'Ops!, length = 0 (D:\Delphi\About 2009\source\Main.pas, line 804)'. Process Demo.exe (3236)
С теми которые во время компиляции вроде решилось, теперь эти лезут.
|
|
|
Вадим К (статус: Академик), 5 сентября 2008, 15:16 [#15]:
ой, как всегда смазал в условии
Assert(length<=7,'Ops!, length = '+inttostr(length));
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Сергей П. (статус: Посетитель), 5 сентября 2008, 15:18 [#16]:
First chance exception at $757B42EB. Exception class EAssertionFailed with message 'Ops!, length = 3407922 (D:\Delphi\About 2009\source\Main.pas, line 804)'. Process Demo.exe (3800)
|
|
|
Вадим К (статус: Академик), 5 сентября 2008, 15:22 [#17]:
Вот теперь надо посмотреть, кто там выше по стеку дергал в этот момент функцию GetMAC и передал ей такой плохой параметр. Если не знаете, как искать "выше по стеку", просто обычным поиском найдите, кто вызвал эту функцию.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Сергей П. (статус: Посетитель), 5 сентября 2008, 15:28 [#18]:
GetMAC отсюда вызывается, это из одного из обсуждаемых иодулей
SubItems.Add(GetMAC(TMAC(Table.Table[i].bPhysAddr),Table.Table[i].dwPhysAddrLen));
Все идет к тому чтобы полжить перед собой исходник и начать его изучать
|
|
|
Вадим К (статус: Академик), 5 сентября 2008, 15:30 [#19]:
надо просто подумать, почему Table.Table[i].dwPhysAddrLen бывает таким большим. Может банально забыли инициализировать что то вначале?
А изучение исходников - полезная вещь. А вот если ещё заставить всё это дело нормально компилироваться под юникод и не юникод - вообще цени знаниям не было бы
Галочка "подтверждения прочтения" - вселенское зло.
|
Страницы: [1] [2] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
