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

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

    Joined:
    6 Feb 2006
    Messages:
    109
    Likes Received:
    17
    Reputations:
    -1
    а можно как отправить письмо не коннектись к другому ящику? например как на php
     
  2. presidentua

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

    Joined:
    4 Nov 2007
    Messages:
    305
    Likes Received:
    236
    Reputations:
    15
    можно, только нужно найти такой SMTP который не ребует авторизации. Это сложновато найти но реально
     
  3. XIII

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

    Joined:
    6 Feb 2006
    Messages:
    109
    Likes Received:
    17
    Reputations:
    -1
    а как пинч например отсылает письмо?
     
  4. presidentua

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

    Joined:
    4 Nov 2007
    Messages:
    305
    Likes Received:
    236
    Reputations:
    15
    Ну наверно какая то база свободных СМТП серверов прописано в нем. В принцыпе мож сам глянуть. Создай виртуальную машыну, запусти Пинча и tcpdump и среди пакетов вылови через какой он сервер отсылает письма.
     
  5. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    2 XIII, При билде пинча, прописываеться заданый email !
     
  6. infernal-team

    infernal-team Elder - Старейшина

    Joined:
    4 Jul 2007
    Messages:
    53
    Likes Received:
    17
    Reputations:
    -10
    Что не кто не может сказать мне код?
     
  7. GlOFF

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

    Joined:
    8 May 2006
    Messages:
    689
    Likes Received:
    484
    Reputations:
    4
    Что там за код тебе нужно сказать ??? :D
     
  8. Jes

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

    Joined:
    16 Apr 2007
    Messages:
    370
    Likes Received:
    391
    Reputations:
    34
    хы , ставишь аутпост файрволл ;) запрещаешь соединения с www.сайт.com:80 ...
    или тебе код файрвола на делфи нада?
     
  9. infernal-team

    infernal-team Elder - Старейшина

    Joined:
    4 Jul 2007
    Messages:
    53
    Likes Received:
    17
    Reputations:
    -10
    Мне нужно код добавить что бы при запуске exe блокировался сайт при открытии его в браузере.
     
  10. dinar_007

    dinar_007 Мадемуазель

    Joined:
    18 Jan 2005
    Messages:
    1,019
    Likes Received:
    770
    Reputations:
    97
    пропиши в C:\WINDOWS\System32\drivers\etc\hosts этот сайт:

    www.blablabla.ru 127.0.0.1
     
  11. XIII

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

    Joined:
    6 Feb 2006
    Messages:
    109
    Likes Received:
    17
    Reputations:
    -1
    если ShowMessage(DBGrid1.Fields[5].AsString);
    то выдаёт сообщение 6570,989115 , аможно как чтобы после "," числа не писались?
    и вот ещё чего пишит ошибку? SzTip:='Соедидение установленно!'+ DBGrid1.Fields[5].AsString;
     
    #851 XIII, 17 Dec 2007
    Last edited: 17 Dec 2007
  12. dinar_007

    dinar_007 Мадемуазель

    Joined:
    18 Jan 2005
    Messages:
    1,019
    Likes Received:
    770
    Reputations:
    97
    Можно =))
    P.S. Какой вопрос - такой ответ. .
     
  13. XIII

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

    Joined:
    6 Feb 2006
    Messages:
    109
    Likes Received:
    17
    Reputations:
    -1
    ну а как?
     
  14. LEE_ROY

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

    Joined:
    9 Nov 2006
    Messages:
    450
    Likes Received:
    188
    Reputations:
    26
    перед выводом строку просто нужно пропарсить, StringReplace юзай и замени "," на пробел.
     
    1 person likes this.
  15. dinar_007

    dinar_007 Мадемуазель

    Joined:
    18 Jan 2005
    Messages:
    1,019
    Likes Received:
    770
    Reputations:
    97
    Если первое можно домыслить второе я вообще хз что ты спрашиваешь...
    Кто тебе ошибку выдаёт?
    Понятнее выражайся...
     
    #855 dinar_007, 17 Dec 2007
    Last edited: 17 Dec 2007
    8 people like this.
  16. XIII

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

    Joined:
    6 Feb 2006
    Messages:
    109
    Likes Received:
    17
    Reputations:
    -1
    ну пишит типа [DCC Error] prog.pas(169): E2010 Incompatible types: 'Array' and 'string'
     
  17. presidentua

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

    Joined:
    4 Nov 2007
    Messages:
    305
    Likes Received:
    236
    Reputations:
    15
    Используй:
    Copy(S: string; Index, Count: Integer): string Возвращает подстроку строки S, начинающуюся с S[Index] и содержащую до Count символов.

    Pos(Substr: string; S: string): Integer Возвращает позицию (индекс) первого вхождения Substr в S. Если Substr нет в S, возвращается 0.

    Например так:
    SzTip:='Соедидение установленно!'+ copy(DBGrid1.Fields[5].AsString,0,pos(',',DBGrid1.Fields[5].AsString);
     
    1 person likes this.
  18. XIII

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

    Joined:
    6 Feb 2006
    Messages:
    109
    Likes Received:
    17
    Reputations:
    -1
    тоже самое пишит [DCC Error] prog.pas(169): E2010 Incompatible types: 'Array' and 'string'
     
  19. infernal-team

    infernal-team Elder - Старейшина

    Joined:
    4 Jul 2007
    Messages:
    53
    Likes Received:
    17
    Reputations:
    -10
    Мне не на своем компе нужно.
     
  20. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    trunc()
     
Thread Status:
Not open for further replies.