[ 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. waik

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

    Joined:
    2 Nov 2008
    Messages:
    405
    Likes Received:
    163
    Reputations:
    12
    РУгается на строку HTTP.Request.CustomHeaders.Add
    говорит :
    Code:
    [Error] Unit1.pas(65): Constant object cannot be passed as var parameter
    
    Функция Pars выглядит так
    Code:
    function Pars(T_ : string; var ForS: string; _T: string): string;  
    var
      a, b: Integer;
    begin
      if (T_ <> '') and (ForS <> '') and (_T <> '') then
        begin
          a := Pos(T_, ForS);  
          Result := Copy(ForS, a + Length(T_), Length(ForS));
          b := Pos(_T, Result);
          Result := Copy(Result, 1, b - 1);  
          if (a>0) and (b>0) then
            Delete(ForS,a,b+length(_T)+length(T_)-1)
          else
            result:='';
        end
      else
        Result := '';
    end;
    
     
  2. Chrome~

    Chrome~ Elder - Старейшина

    Joined:
    13 Dec 2008
    Messages:
    936
    Likes Received:
    162
    Reputations:
    27
    В функцию Pars в качестве второго параметра передавай не http.Response.RawHeaders.Text, а переменную типа string. После этого можешь присвоить http.Response.RawHeaders.Text значение используемой переменной.
     
  3. firstfallen

    firstfallen New Member

    Joined:
    1 Mar 2010
    Messages:
    64
    Likes Received:
    0
    Reputations:
    0
    Народ, подскажите, создал динамически форму и кнопки, а как к ним события создать на тот же самый онклик или онклоз?
     
  4. DooD

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

    Joined:
    30 Sep 2010
    Messages:
    1,168
    Likes Received:
    450
    Reputations:
    288
    прототип процедуры прописуешь в public declaration, потом уже вызываешь onclick или что там тебе надо.
     
    #8484 DooD, 4 Sep 2011
    Last edited: 4 Sep 2011
  5. firstfallen

    firstfallen New Member

    Joined:
    1 Mar 2010
    Messages:
    64
    Likes Received:
    0
    Reputations:
    0
    не очень понятно.
     
  6. DooD

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

    Joined:
    30 Sep 2010
    Messages:
    1,168
    Likes Received:
    450
    Reputations:
    288
    эх смотри
    ...
    public
    {public declaration}
    procedure onclick(sender:tobject);

    ...
    {$R *.dfm}
    procedure TForm1.onclick(Sender: Tobject);
    begin
    showmessage('123');
    end;

    somecode

    по событию onclick динамического объекта вызываешь процедуру то-бишь
    b:tbutton;
    b.onclick:=onclick;
     
    #8486 DooD, 4 Sep 2011
    Last edited: 5 Sep 2011
  7. DooD

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

    Joined:
    30 Sep 2010
    Messages:
    1,168
    Likes Received:
    450
    Reputations:
    288
    короче вот тебе пример если не понял
    http://zalil.ru/31649246
     
    #8487 DooD, 5 Sep 2011
    Last edited: 5 Sep 2011
  8. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    Почему в приватах описывать? Достаточно объявить процедуру в описании класса:
    PHP:
    type
      TForm1 
    = class(TForm)
        
    Button1TButton;
        
    procedure Button1Click(SenderTObject);
        
    procedure DoSomething(Sender TObject);
      private

        { Private 
    declarations }
      public


        { Public 
    declarations }

      
    end;
    Мб чет не догнал...
     
  9. w1spo

    w1spo New Member

    Joined:
    15 Jul 2011
    Messages:
    0
    Likes Received:
    4
    Reputations:
    0
    В программе есть компонент memo в который каждую минуту добавляеться строка вида:
    т.е две строки, проблеиа в том что если пройдет 5 минут то уже будет 10 строк в поле memo, как можно сделать чтоб в данном поле очищалось например каждые 2 минуты ? или же чтоб запись
    перезаписывалась на более новую, а старая не сохранялась ?
     
  10. ShyRka_coder

    ShyRka_coder Member

    Joined:
    27 Jul 2010
    Messages:
    127
    Likes Received:
    7
    Reputations:
    5
    Кинь на форум таймер , сделай что бы каждые 2 минуты тебе очищалось мемо , мож условия задать если надо ..
     
  11. DooD

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

    Joined:
    30 Sep 2010
    Messages:
    1,168
    Likes Received:
    450
    Reputations:
    288
    в интервале таймера ставишь 120000
    в событии таймера пишешь
    memo1.clear
    все.
     
  12. DYUMON

    DYUMON New Member

    Joined:
    15 Sep 2010
    Messages:
    68
    Likes Received:
    2
    Reputations:
    0
    если у тебя в memo ещё строки то делай не add а insert или insertin точно не помню. тогда у тебя будут просто заменятся эти две строки
     
  13. SNAIPER ShoT

    SNAIPER ShoT Elder - Старейшина

    Joined:
    24 Jun 2007
    Messages:
    48
    Likes Received:
    3
    Reputations:
    0
    Подскажите код на делфи.. вот хочу допустим я снять хук (руками через антируткит не успеваю до запуска игры.. (запускается античит)) допустим сделать мини патч.. что бы снимал все заданые хуки... ну допустим вот эти - [​IMG]

    реально ли написать такой антихук что бы он снимал их сам..? :confused:

    объясните хто не злой :)
     
  14. alexey-m

    alexey-m Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    SNAIPER ShoT, это хуки SSTD в ядре, что бы их снять нужно писать драйвер (что на делфи можно конечно сделать, прецеденты были, но это безумие =D)
     
  15. CheatXX

    CheatXX New Member

    Joined:
    8 Jun 2009
    Messages:
    154
    Likes Received:
    2
    Reputations:
    0
    http://l2top.ru/vote/1632/

    подскажите пожалуйста как капчу получить от сюда...?
    целый день провозился не чего не получилось
     
  16. xophet

    xophet Member

    Joined:
    16 Apr 2011
    Messages:
    617
    Likes Received:
    49
    Reputations:
    5
    Запросы шлет флешка, загрузи ее отдельно от страницы и смотри куда и что шлет.
    Но хочу тебя огорчить, она картинки получает зашифрованные, и расшифровывать их предстоит тебе :mad:
    http://l2top.ru/StrongCaptcha.swf?19 - флешка
    http://l2top.ru/cryptImg.php?key=56e8707efa1d1fa7f32297452ddcb480 - картинка.
    Всех благ =-)
     
  17. CheatXX

    CheatXX New Member

    Joined:
    8 Jun 2009
    Messages:
    154
    Likes Received:
    2
    Reputations:
    0
    как расшифровать?)
     
  18. 2pick

    2pick Elder - Старейшина

    Joined:
    17 Mar 2007
    Messages:
    117
    Likes Received:
    39
    Reputations:
    2
    Имеется 2 вопроса:
    1. Что означают цифры в начале и конце ответа с апача?
    Code:
    HTTP/1.1 200 OK
    Date: Sun, 11 Sep 2011 19:41:14 GMT
    Server: Apache/1.3.41 (Unix) PHP/4.4.9
    X-Powered-By: PHP/4.4.9
    Connection: close
    Transfer-Encoding: chunked
    Content-Type: text/plain; charset=utf-8
    
    6  <--это
    9.8960
    0 <--и это
    
    2. Почему пр иработе с Winsock и отправке HTTP запроса - такое не канает?
    Code:
    var html:pchar;
    begin
      html:=PChar('GET / HTTP/1.1'$13#10+
                 'Host: some.ru'#13#10+
                  'Connection: close'#13#10#13#10);
      Send(Sock, html, length(html), 0);
    end;
    
    Сервер возвращает, что ошибка в запросе. А если построчно все это отправляю через ф-ю:
    Code:
    procedure SendString(s: string);
    var
      Buffer: array[0..255] of char;
    begin
      StrPCopy(Buffer, s);
      Send(Sock, Buffer, length(s), 0);
    end;
    
    то все проходит наура... Как вообще мне отправить запрос, не разбивая на строки, т.е. как указано в примере выше?
     
  19. 2pick

    2pick Elder - Старейшина

    Joined:
    17 Mar 2007
    Messages:
    117
    Likes Received:
    39
    Reputations:
    2
    Сумничал, да? Смотри не захлебнись в своей невъебенности...
     
    #8499 2pick, 12 Sep 2011
    Last edited: 12 Sep 2011
  20. alexey-m

    alexey-m Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    ну судя по внутренностям флешки, то там используется DES, ну а как он используется - это ты уже сам думай)
     
Thread Status:
Not open for further replies.