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

Вопрос может не в тему и "никакой" НО для меня он актуален, извиняюсь заранее но аналогичного для размещения ни чего не нашёл. Прабла в следующем: пакет разработки Borland Developer Studio 2006 устанавливаешь требуется регистрация точнее файл (ключ), для этого регишся на http://www.codegear.com/downloads/free/turbo и должны переслать именно этот "ключ" на мыльничек, всё по пунктам не раз проделывал пишется что пакет отправлен как результат ящик пуст (фильтрацию проверял, ограничений не выставлено). Может у кого есть мысли на данный счёт или "кейген".

 

Сначал надо найти через Апи функции например по заглавию, то поле которе хочешь изменить, а потом послать ему Сообщение на смену текста.

ПС:текст проги подсказать не могу, так как под рукой нет справочника по Апи. Попробуй сам найти,если не получиться запости еще раз на форуме - помогу

 

procedure SetWinText(hWin: DWORD ;Text: String);
begin
SendMessage(hWin, WM_SETTEXT, 0, Integer(Text));
end;

 

Вот:

Примерно так.. Поиск всех дочерних окон и главного окна, по заголовку, дальше через SendMessage, посылаешь нужному элементу текст..

 

Здравствуйте! Друг попросил создать снифер на Дельфях...А вот что это такое я не знаю!(только не надо смеяться)Может кто объяснить, что это и как работает?

 

Сниффер это анализатор трафика. Вот здесь можешь почитать поподробнее http://ru.wikipedia.org/wiki/Sniffer

 

http://www.delphisources.ru/pages/sources/internet/2006_year/sniffer.html

 

Спасибо за помощь выручили !!!...
А еще можете научить пользоваться HttpAnalyzerStdV3..Статью какую нить... просто посмотрю как он работает и попробую написать такую...
Интересно стало

 

HTML:

var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:char;
  begin  
  a1:=StrToFloat(Edit1.Text);
  a2..
  a3.....
  Edit11.Text:=FloatToStr(a1); 
  end;

Помогите пожалуйста, мне нужно чтобы текст из Edit1.Text присвоила переменная "a1", а текстЪ) Edit11.Text отображал все переменные от a1 до a10.
С цифрафи var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:real - вроде работает,а с буквами- нет. Подскажите как реализовать?

 

Ну надо твои переменные сделать типа string, это раз. Во-вторых, StrToFloat тут ни к чему

 

само собой , это ж real ...

a:array[1..10] of string[10];
a[1] := Edit1.Text;
....
Edit11.Text := сумма массива ...

 

Спасибо! Все заработало!

Еще вопрос, подскажите, как мне получить все возможные комбинации из 8 переменных? Есть 8 разных чисел, нужно вывести их в окно (Memo), но они не должны повторятся.
12345678
12345687
12345867...
87654321
Подскажи, как это реализовать?

 

Code:

type
  maska = array[1..8] of boolean;

const
  chars = '12345678';

var
  msk: maska;

procedure replaces(s: string; c: byte; m: maska);
var
  i: integer;
begin
  if c = 8 then
    Form1.Memo1.Lines.Add(s)
  else
    for i := 1 to 8 do
      if not m[i] then
        begin
          m[i] := true;
          replaces(s + chars[i], c+1, m);
          m[i] := false;
        end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  replaces('',0,msk);
end;

8! штук...

 

подскажите как вставлять ссылки в делфи. (т.е при нажатии на ссылку переходишь по определенному адресу)

 

ShellExecute(Handle, nil, 'http://www.my.com', nil, nil, SW_SHOW);

 

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

 

zlOy правильно говорит используй ShellExecute, может ты просто забыл модуль ShellApi?! А на счёт pagecontrol:что ты подразумеваешь под словом новая оболочка? она что не стандартной формы у тебя?

 

объясню заново. запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. перетаскиваю на это окно из Win32 PageControl. жму F9. появляется программа. если ее развернуть то оболочка программы разворачивается а PageControl остается на месте. как сделать так что бы оболочка программы с PageControl разворачивались и сворачивались синхронно?
zlOy правильно говорит используй ShellExecute, может ты просто забыл модуль ShellApi?!
делаю так -
запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. перетаскиваю на это окно стандартные- Label.
два щелчка и появляется этот текст-
procedure TForm1.Label1Click(Sender: TObject);
begin

end;

end.
вставляю код zlOy'ва так-
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'http://www.my.com', nil, nil, SW_SHOW);
end;

end.
при нажатии F9 просто выделяется бордовым цветом код который указал zlOy'ва а внизу это-
[Ошибка] Unit1.pas(28): Undeclared identifier: 'ShellExecute'
[Фатальная Ошибка] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

 

объясняю:
1) вставляешь этот код по щелчку на label. Затем поднимаешься по коду выше( в самое начало) где модули uses прописаны(Windows, SysUtils, ... и прочие) подключаешь через запятую новый модуль(по умолчанию его нет!) - SHELLAPI. нажимаешь F9.
2) чтобы pagecontrol развертывался вместе с формой, выдели его и в свойствах его найди Align( почти самое первое) и измени на atClient! всё!

 

A2gil огромное тебе спасибо. все получилось. теперь возник еще вопросик. как писать текст? т.е запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. какой элемент надо перенести чтобы в результате получилась просто программа содержащая текстовую информацию?