1. BanDiTuK13.05.2025 at 11:12 PMот
  2. Forum Support13.05.2025 at 10:01 PMот
Loading...
Loading...

Урок по синапсу

Discussion in 'С/С++/Pascal/Delphi' started by deival909, 10.11.2013.

  1. deival909

    Banned
    deival909

    Статус:
    Оффлайн
    Joined:
    18.12.12
    Messages:
    733
    Репутация:
    271 +/-
    Всем привет , хочу рассказать ,как осуществить запросы в синаписе.

    Для начала его скачаем - http://www.ararat.cz/synapse/doku.php (Офф. сайт , не рекламма.)
    Для Delphi 2010 , XE - http://blog.nsoft-s.com/ne-sobiraetsya-biblioteka-synapse-v-delphi-xe3/

    Создаем форму , а на форму ставим компоненты: Button , Memo.
    В Uses прописываем:
    HTTPSend, SSL_OpenSSL .

    Дальше создаем переменную:
    HTTP: THTTPSend;
    Request: TStringStream;
    Response: TStringList;

    Далее на кнопку пишем:
    HTTP:=THTTPSend.Create;
    Request:=TStringStream.Create;
    Response:=TStringList.Create;

    HTTP.UserAgent:='';//Указываем свой Useragent
    HTTP.MimeType:='';//Для POST запроса

    Request.WriteString('')//Пост данные , Пример:
    Request.WriteString('Login=Sam124&Password=123456');//Данные разделяем символом &
    HTTP.Document.LoadFromStream(Requset);//Загружаем пост данные в нашу переменную
    Request.Free;//Освобождаем переменную , т.к она больше нам не нужна.

    HTTP.HTTPMethod('POST',Ваш линк);//Указываем тип запроса и вашу ссылку
    Response.LoadFromStream(HTTP.Documet);//Загружаем HTML код страницы
    HTTP.Free;//Освобождаем переменную , т.к она больше нам не нужна.

    Memo1.Text:=Response.Text;
    Response.Free;//Освобождаем переменную , т.к она больше нам не нужна.

    Что-бы посмотреть в Headers пишем:
    HTTP.Headers.Text;

    Что-бы посмотреть в Cookies пишем:
    HTTP.Cookies.Text;

    Когда вы делаете более чем 1 запрос, всегда очищайте переменные:
    HTP.Clear;
    HTTP.Document.Clear;
    HTTP.Headers.Clear;
    HTTP.Cookies.Clear;
    //Советую использовать просто HTTP.Clear;

    Как использовать прокси:
    HTTP.ProxyHost:='Айпи адрес';
    HTTP.ProxyPort:='Порт';
    HTTP.Timeout:=;Таймаут
    P.S В данном случае , тут показано как использовать прокси HTTP

    Как использовать POP3
    В Uses пишем POP3Send;
    Создаем переменную POP3:TPOP3Send;
    Далее пишем:

    POP3:=TPOP3Send.Create;
    POP3.TargetHost:='';//Сайт
    POP3.TargetPort:=;//Port
    POP3.UserName:='';//Логин
    POP3.Password:='';//Пароль
    POP3.FullSSL:=True;//Включить или выключить SSL
    if POP3.Login then//Если залогинились , тогда гуд

    Так же проделываем с IMAP , только вместо POP3Send , пишем IMAPSend

    Если что-то еще хотите узнать - пишите , расскажу
     
  2. sacred82

    sacred82

    Статус:
    Оффлайн
    Joined:
    10.08.13
    Messages:
    306
    Репутация:
    290 +/-
    бро где делфи для 8винды скачать?везде rms ципляют
     
  3. deival909

    Banned
    deival909

    Статус:
    Оффлайн
    Joined:
    18.12.12
    Messages:
    733
    Репутация:
    271 +/-
  4. Imantin

    Imantin

    Статус:
    Оффлайн
    Joined:
    05.05.13
    Messages:
    160
    Репутация:
    89 +/-
    я качал с торрента..
     
  5. Job777

    Job777

    Статус:
    Оффлайн
    Joined:
    08.11.13
    Messages:
    10
    Репутация:
    2 +/-
    Объясни с редиректами. Как ручками сделать, и функцией автоматически редиректить.
     
  6. deival909

    Banned
    deival909

    Статус:
    Оффлайн
    Joined:
    18.12.12
    Messages:
    733
    Репутация:
    271 +/-
    Функцию написал

    HTTP.HTTPMethod....И т.д
    HTTP.Clear
    HTTP.HTTPMethod....И т.д
     
  7. Job777

    Job777

    Статус:
    Оффлайн
    Joined:
    08.11.13
    Messages:
    10
    Репутация:
    2 +/-
  8. McIbra

    McIbra

    Статус:
    Оффлайн
    Joined:
    30.10.13
    Messages:
    193
    Репутация:
    152 +/-
    Какую версию лучше использовать delphi ?
     
  9. devel

    devel

    Статус:
    Оффлайн
    Joined:
    06.12.12
    Messages:
    245
    Репутация:
    94 +/-
    Замутил бы видео урок с примерами и подробным объяснением...
     
  10. Подарок

    Подарок

    Статус:
    Оффлайн
    Joined:
    27.07.12
    Messages:
    1,439
    Репутация:
    357 +/-
    Он не в состоянии такого сделать.
     
  11. devel

    devel

    Статус:
    Оффлайн
    Joined:
    06.12.12
    Messages:
    245
    Репутация:
    94 +/-
    Почему же?
    Написал же эту статью значит есть хоть какое-то желания помогать новичкам. То почему нет то?
     
  12. CENTURIОN

    CENTURIОN

    Статус:
    Оффлайн
    Joined:
    11.11.13
    Messages:
    351
    Репутация:
    287 +/-
    Парень,лучше бы видео урок сделал.А так спс за инфу
     
  13. deival909

    Banned
    deival909

    Статус:
    Оффлайн
    Joined:
    18.12.12
    Messages:
    733
    Репутация:
    271 +/-
    Почему ты всегда такой негативный ? Отчим я вижу пиз*** и игарешку