Показать сообщение отдельно
  #8  
Старый 16.07.2010, 16:13
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от Vayrus
Спасибо, но Не совсем понял что находит данный код, то ли какое то "магическое число", непонятно для чего, то ли смещение текста-маркера, после которого находится произвольный искомый текст (в данном случае набор цифр), которое я и так в своем коде нахожу

Код испробовал, нашел какой то набор цифр, не сильно далекий от того что нужно...
эта функция ищет адрес строки в памяти, можно указать как Pointer, то число которое надо получить оно на фиксированной длине от этого слова стоит? если так то в возвращении результата прибавь этот оффсет
Код:
for j:=0 to readed-1 do
      begin
        if(PByte(Cardinal(buf)+j)^=PByte(@AStr[j])^)and
          (CompProcessMem(Pointer(Cardinal(buf)+j), @AStr[j], strLen))then
        begin
          Result := Cardinal(buf)+j; //+offset
          Exit;
        end;
      end;
просто не имею тестового приложения для теста, что-бы всю задачу решить
эм, а тема топика то в чём конкретно? тебе права в 7 нужно настроить?
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием