[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

найдется всетаки человек который покажет наконец как отследить на delphi обращения к реестру как regmon тонсть тип действия (Чтение создание изменение) и все параметры.....

 

У регмона, исходные тексты открыты. Он написан на WinApi. Разве сложно скачать сырцы и разобраться?

 

z01b да они есть у меня они на си написаны а с си я пока на ВЫ (((( я думал может есть у кого на delphi дак поделятся для изучения...... ну нет дак нет..... беде ковыряться в кодах си (

 

найтив апи надо юзать, для получения всех обращений, так как обычные является, только переходниками, к более низким.

 

Зачем? Никто, почти кроме системы, родной апи не использует, а так можно поставить хуки на RegQueryValueEx и ижес ним и радоваться жизни...

Про хуки - смотри в гугле Или справку по апи по функциям типа SetWindowsHookEx

 

Глобальным хуком: драйвер,внедрение (dll,кода) во все процессы,сплайсинг апи и.т.д

 

Делай так

Code:

program test;

function AnsiToDos(mes: String):String;
var
  i: Word;
begin
  for i := 1 to length(mes) do
    case mes[i] of
      'А'..'п': mes[i] := Chr(Ord(mes[i]) - 64);
      'р'..'я': mes[i] := Chr(Ord(mes[i]) - 16);
      Chr(168): mes[i] := Chr(240);
      Chr(184): mes[i] := Chr(241);
    end;
  //для Delphi надо так:
  //Result := mes;
  //Для Пискаля так:
  AnsiToDos := mes;
end;

const
   text='Не важно';
begin
   writeLn(AnsiToDos(text));
end.

2 0verbreaK

Это ты что то сильно загнул.

 

Как узнать, загрузилась страница в WebBrowser или возникла ошибка? (403,404 и т.д.)? Заранее спасибо

 

Судя по этим 2м топикам:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=61209
http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=61118
Норм решения нет, как вариант можешь с помшью ClientSocket загрузить страницу и посмотреть в ответе сервера, если 404 - з нач страницы нет)

 

А как можно получить исходный код страницы, загруженной в WebBrowser?

 

Code:

 function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
 var
   ps: IPersistStreamInit;
   ss: TStringStream;
   sa: IStream;
   s: string;
 begin
   ps := WebBrowser.Document as IPersistStreamInit;
   s := '';
   ss := TStringStream.Create(s);
   try
     sa := TStreamAdapter.Create(ss, soReference) as IStream;
     Result := Succeeded(ps.Save(sa, True));
     if Result then ACode.Add(ss.Datastring);
   finally
     ss.Free;
   end;
 end;

 

Нашел сам способ =)
tagsU := WebBrowser1.OleObject.document.all.item(0).innerHTML;
ShowMessage(tagsU);

 

Вопросы по object pascal(консольные приложения)
1. Как мне вывести дату на экран? например в формате 05 06 08
2. Можно выводить случайным образом цифры, а как мне выводить случайным образом слова?

можно загнать в массив или перечисляемый тип ток ничего не получается

Помогите пожалуйста! Спасибо

 

1.http://delphi.about.com/od/beginners/l/blrtldatetime.htm
2. ПихаешЪ нужные слова в массив и потом просто делаешь writeln(mass[random(последний элемент масива)])

 

у меня не получается слова в массив загнать, как это сделать? Спасибо

 

Что может быть проще? Генеришь число, а чтобы запихать символ в массив (array of char или string), делаешь

Code:

str [i] = chr (number);

 

Code:

var
x :array [0..20] of string;
tmp:integer;
begin
x[0] :='slovo1';
x[1] :='slovo2';
x[2] :='slovo3';
x[3] :='slovo4';
x[4] :='slovo5';
x[5] :='slovo6';
x[6] :='slovo7';
tmp:=random(7);
writeln(x[tmp]);

 

ё-моё!:/

Code:

const (ну или var...)
  x :array [0..3] of string = ('word1', 'word2', 'word3','word4');
...
writeln(x[random(4)]);

 

перед использованием Random(x) надо вроде инициализировать генератор случайных цифр процедурой Randomize;

 

Dephli
Нид хелп вобщем...
пишу прогу другу друг сдать надо зафтра

гонял по тестам нашел косяк начал отлаживать наткнулся на вобще какую то страшную аномалию

у меня совершенно ч0тко зануляется переменная
а потом нис того ни с сего она оказывается равная 6 значному числу
пробывал менять типы..