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

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. Georg Jung

    Georg Jung New Member

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

    presidentua милиционер Античата

    Joined:
    4 Nov 2007
    Messages:
    305
    Likes Received:
    236
    Reputations:
    15
    Сначал надо найти через Апи функции например по заглавию, то поле которе хочешь изменить, а потом послать ему Сообщение на смену текста.

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

    t04 Elder - Старейшина

    Joined:
    10 Jan 2007
    Messages:
    137
    Likes Received:
    40
    Reputations:
    8
    procedure SetWinText(hWin: DWORD ;Text: String);
    begin
    SendMessage(hWin, WM_SETTEXT, 0, Integer(Text));
    end;
     
    #903 t04, 5 Jan 2008
    Last edited: 5 Jan 2008
  4. Pir4tt

    Pir4tt Elder - Старейшина

    Joined:
    3 Jan 2008
    Messages:
    73
    Likes Received:
    36
    Reputations:
    5
    Вот:

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

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Здравствуйте! Друг попросил создать снифер на Дельфях...А вот что это такое я не знаю!(только не надо смеяться)Может кто объяснить, что это и как работает?
     
  6. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Сниффер это анализатор трафика. Вот здесь можешь почитать поподробнее http://ru.wikipedia.org/wiki/Sniffer
     
  7. Jes

    Jes Elder - Старейшина

    Joined:
    16 Apr 2007
    Messages:
    370
    Likes Received:
    391
    Reputations:
    34
    http://www.delphisources.ru/pages/sources/internet/2006_year/sniffer.html
     
  8. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Спасибо за помощь выручили !!!...
    А еще можете научить пользоваться HttpAnalyzerStdV3..Статью какую нить... просто посмотрю как он работает и попробую написать такую...
    Интересно стало :)
     
  9. .Begemot.

    .Begemot. Elder - Старейшина

    Joined:
    27 Mar 2007
    Messages:
    148
    Likes Received:
    233
    Reputations:
    0
    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 - вроде работает,а с буквами- нет. Подскажите как реализовать?
     
  10. Joker-jar

    Joker-jar Elder - Старейшина

    Joined:
    11 Mar 2007
    Messages:
    581
    Likes Received:
    205
    Reputations:
    37
    Ну надо твои переменные сделать типа string, это раз. Во-вторых, StrToFloat тут ни к чему
     
    1 person likes this.
  11. Jes

    Jes Elder - Старейшина

    Joined:
    16 Apr 2007
    Messages:
    370
    Likes Received:
    391
    Reputations:
    34
    само собой , это ж real ...

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

    .Begemot. Elder - Старейшина

    Joined:
    27 Mar 2007
    Messages:
    148
    Likes Received:
    233
    Reputations:
    0
    Спасибо! Все заработало! :)

    Еще вопрос, подскажите, как мне получить все возможные комбинации из 8 переменных? Есть 8 разных чисел, нужно вывести их в окно (Memo), но они не должны повторятся.
    12345678
    12345687
    12345867...
    87654321
    Подскажи, как это реализовать?
     
    #912 .Begemot., 7 Jan 2008
    Last edited: 9 Jan 2008
  13. Joker-jar

    Joker-jar Elder - Старейшина

    Joined:
    11 Mar 2007
    Messages:
    581
    Likes Received:
    205
    Reputations:
    37
    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! штук...
     
    1 person likes this.
  14. GSM™

    GSM™ Elder - Старейшина

    Joined:
    2 Nov 2007
    Messages:
    221
    Likes Received:
    31
    Reputations:
    6
    подскажите как вставлять ссылки в делфи. (т.е при нажатии на ссылку переходишь по определенному адресу)
     
  15. zl0y

    zl0y Banned

    Joined:
    13 Sep 2006
    Messages:
    371
    Likes Received:
    270
    Reputations:
    109
    ShellExecute(Handle, nil, 'http://www.my.com', nil, nil, SW_SHOW);
     
    1 person likes this.
  16. GSM™

    GSM™ Elder - Старейшина

    Joined:
    2 Nov 2007
    Messages:
    221
    Likes Received:
    31
    Reputations:
    6
    с этим ничего не вышло. кто может подскажите. и еще вопрос. перенес на новую оболочку PageControl, создал несколько новых вкладок. комплитирую и получаю окно этой программы. но когда разворачиваю на весь экран то оболочка разворачивается а PageControl нет. как сделать чтобы при развертывании программы на весь экран PageControl тоже разворачивалась?
     
  17. A2GIL

    A2GIL Elder - Старейшина

    Joined:
    31 Aug 2007
    Messages:
    84
    Likes Received:
    59
    Reputations:
    -3
    zlOy правильно говорит используй ShellExecute, может ты просто забыл модуль ShellApi?! А на счёт pagecontrol:что ты подразумеваешь под словом новая оболочка? она что не стандартной формы у тебя?
     
    1 person likes this.
  18. GSM™

    GSM™ Elder - Старейшина

    Joined:
    2 Nov 2007
    Messages:
    221
    Likes Received:
    31
    Reputations:
    6
    объясню заново. запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. перетаскиваю на это окно из 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'
     
  19. A2GIL

    A2GIL Elder - Старейшина

    Joined:
    31 Aug 2007
    Messages:
    84
    Likes Received:
    59
    Reputations:
    -3
    объясняю:
    1) вставляешь этот код по щелчку на label. Затем поднимаешься по коду выше( в самое начало) где модули uses прописаны(Windows, SysUtils, ... и прочие) подключаешь через запятую новый модуль(по умолчанию его нет!) - SHELLAPI. нажимаешь F9.
    2) чтобы pagecontrol развертывался вместе с формой, выдели его и в свойствах его найди Align( почти самое первое) и измени на atClient! всё!
     
    #919 A2GIL, 13 Jan 2008
    Last edited: 13 Jan 2008
  20. GSM™

    GSM™ Elder - Старейшина

    Joined:
    2 Nov 2007
    Messages:
    221
    Likes Received:
    31
    Reputations:
    6
    A2gil огромное тебе спасибо. все получилось. теперь возник еще вопросик. как писать текст? т.е запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. какой элемент надо перенести чтобы в результате получилась просто программа содержащая текстовую информацию?
     
Thread Status:
Not open for further replies.