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

    patcher Banned

    Joined:
    15 Dec 2009
    Messages:
    190
    Likes Received:
    37
    Reputations:
    10
    в Делфи я делаю это обычно так:
    Code:
    extractfilepath(Application.Exename);
    
     
    1 person likes this.
  2. 1n0y

    1n0y Active Member

    Joined:
    9 May 2009
    Messages:
    276
    Likes Received:
    282
    Reputations:
    2
    нужно чтобы программка конектилась к базе данных на сервере, могла брать\записывать значения оттуда\туда

    как проще всего это реализовать на делфи? натолкните на верный путь :)
     
  3. presidentua

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

    Joined:
    4 Nov 2007
    Messages:
    305
    Likes Received:
    236
    Reputations:
    15
    Волей судьбы вернуло меня с Питоновского поля программирования к Делфи )

    Подскажите пожалуйста рабочую компоненту для создания сокс-сервера.

    Перепробовал кучу из них, но что-то то одна работает с огронмыми утечками, то с глюками какими-то. Так и не смог найти ничего полезно(.
     
  4. RumShun

    RumShun Member

    Joined:
    27 Oct 2008
    Messages:
    283
    Likes Received:
    75
    Reputations:
    6
    1n0y я лично предпочитаю использовать ADO, когда по быстрому надо )). если не нагуглишь или вопросы будут стучи в аську помогу.
     
    1 person likes this.
  5. 1n0y

    1n0y Active Member

    Joined:
    9 May 2009
    Messages:
    276
    Likes Received:
    282
    Reputations:
    2
    погуглил, пробежался глазами и понял, что не совсем верно я задал вопрос :)
    сервер - хостинг с мускулом. нужно брать\писать значения туда :)
    гуглил целый день, но толком нефига не понял.. расскажите плз основные команды чтения\записи данных в мускул. буду рад любым наглядным примерам :)
     
  6. RumShun

    RumShun Member

    Joined:
    27 Oct 2008
    Messages:
    283
    Likes Received:
    75
    Reputations:
    6
    1n0y я вот что нагуглил
    пример: _http://svdpro.info/page.php?id=18
    компоненты: _http://delphi.about.com/od/mysql/tp/aatpmysql.htm
    я так понял после прочитки лучше всего из бесплатных Zeos Library
    и тебе знание sql скорее всего понадобиться
     
  7. RumShun

    RumShun Member

    Joined:
    27 Oct 2008
    Messages:
    283
    Likes Received:
    75
    Reputations:
    6
    У меня такой вопрос возник, в делфи необходимо написать прогу чтоб из одного вордовского документа создать из каждой страницы отдельный новый документ, в результате поиска впринципе понял что к чему, но вот как скопировать именно страницу что то не дотумкаю ((
     
  8. Qb1024

    Qb1024 New Member

    Joined:
    15 Jul 2009
    Messages:
    323
    Likes Received:
    4
    Reputations:
    0
    Как прога на делфи может узнать, что комп вышел из режима гибернации или сна???
     
  9. Refqs

    Refqs Banned

    Joined:
    20 Feb 2010
    Messages:
    139
    Likes Received:
    56
    Reputations:
    27
    Этот код поможет узнать находится ли компьютер в процессе гибернации.


    Этот код поможет узнать находится ли компьютер в процессе сна.
     
  10. Qb1024

    Qb1024 New Member

    Joined:
    15 Jul 2009
    Messages:
    323
    Likes Received:
    4
    Reputations:
    0
    Спасибо за код. И такой вопрос: эта функция вернет истину когда сам комп спит??? Проц то в это время не работает...
     
  11. [stranger]

    [stranger] Member

    Joined:
    2 Feb 2010
    Messages:
    167
    Likes Received:
    29
    Reputations:
    4
    видимо этот код проверяет возможность hibernate вообще..
     
  12. Qb1024

    Qb1024 New Member

    Joined:
    15 Jul 2009
    Messages:
    323
    Likes Received:
    4
    Reputations:
    0
    Хм, если это так, то это не совсем то. На моей семёрке он явно есть.
     
  13. Qb1024

    Qb1024 New Member

    Joined:
    15 Jul 2009
    Messages:
    323
    Likes Received:
    4
    Reputations:
    0
    Да, точно, этот код проверяет доступность соответствующих режимов на компе. Вопрос открыт.
     
  14. xafon

    xafon New Member

    Joined:
    2 Dec 2009
    Messages:
    38
    Likes Received:
    4
    Reputations:
    0
    как узнать содержимое файла, который есть на сервере (http://site/file.dat). и при нахождении строчки (например: mesage hello) вывести сообщение hello?
     
  15. Refqs

    Refqs Banned

    Joined:
    20 Feb 2010
    Messages:
    139
    Likes Received:
    56
    Reputations:
    27
    возможно ошибаюсь но примерно так
    idhttp1.get('http://site/file.dat');
    это вывести в мемо а потом процедурой search найти нужное слово
     
  16. xafon

    xafon New Member

    Joined:
    2 Dec 2009
    Messages:
    38
    Likes Received:
    4
    Reputations:
    0
    это то понятно, но... не много не так, мне нужно это делать без форм, и искать именно в файле, а не в мемке.
     
  17. TrueBit

    TrueBit Member

    Joined:
    21 Nov 2009
    Messages:
    71
    Likes Received:
    19
    Reputations:
    4
    var
    s: string;
    begin
    s:=idhttp1.get('http://site/file.dat');
    if pos('mesage hello', s)<>0 then
    showmessage('hello');
    end;
    примерно так
     
    2 people like this.
  18. wolmer

    wolmer Member

    Joined:
    12 May 2009
    Messages:
    438
    Likes Received:
    97
    Reputations:
    9
    Если же быть совсем точным то (если вместо hello -> будет не предсказуемое слово)(не сочти меня за "умника" :D ):
    Code:
    var
     s: string;
    begin
     s:=idhttp1.get('http://site/file.dat');
     //Допустим будет в s слово: message_hello_:)
     //Единственное что тут могут регистры мешать (но это дело поправимое  :) )
     if pos('message', s)<>0 then
      begin
        showmessage(copy(s, pos('message_', s)+length('message_'),
                            length(s)-length('message ')-3));
      end;
    end;
    Второй вариант: использовать регулярку
     
    #5358 wolmer, 28 Feb 2010
    Last edited: 28 Feb 2010
    1 person likes this.
  19. Андрей021

    Андрей021 New Member

    Joined:
    3 Aug 2009
    Messages:
    13
    Likes Received:
    2
    Reputations:
    1
    Этим кодом я записываю строковой параметр. что сдесь поправить, что бы записывался двоичный параметр REG_BINARY "Timeout"=hex:0a,00,00,00?

    Code:
    program Project1;
    
    uses
      registry,
      SysUtils;
    
    var
      reg:tregistry;
    
    const
    HKEY_LOCAL_MACHINE = $80000002;
    
    begin
    reg:=tregistry.create;
    reg.rootkey:=HKEY_LOCAL_MACHINE;
    if reg.openkey('SYSTEM\CurrentControlSet\Services\Netlogon, true) then
    begin
        reg.WriteString('Timeout', '0a,00,00,00');
        reg.closekey;
    end;
    
    reg.free;
    end.
     
  20. ErrorNeo

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

    Joined:
    2 May 2009
    Messages:
    923
    Likes Received:
    838
    Reputations:
    402
    шлю запрос:

    Code:
    sendbuff := 'GET '+request+' HTTP/1.1'+ #13#10 +
         'Host: domain.com'+ #13#10 +
         'User-Agent: Mozilla/5.0 (Windows NT 5.1; ru; rv:1.9.0.17)'+ #13#10 +
         'Accept: text/html'+ #13#10 +
         'Accept-Language: ru,en-us;q=0.7,en;q=0.3'+ #13#10 +
        // 'Accept-Encoding: gzip,deflate'+ #13#10 +
         'Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7'+ #13#10 +
         'Keep-Alive: 300'+ #13#10 +
    если раскоменчу
    - не могу прочесть результат:( В смысле, не могу перевести его в "читабальный" вид - а мне к результату надо применять ф-ции pos и copy.
    Тем не менее использовать компрессию все же хотелось бы, т.к. скорость работы программы упирается в нехватку траффика.

    Кто подскажет, как проще реализовать де-шифровку gzip ?
    (видел в гугли какие-то замороченно-трехэтажные методы - не верю, что это настолько сложно)

    за помощь буду благодарен!
     
    #5360 ErrorNeo, 28 Feb 2010
    Last edited: 28 Feb 2010
Thread Status:
Not open for further replies.