В ожидании ответа Хелп с кодом

[SIyfox]

Хочу сделать парсер прокси такого типа -

Ибо руки у меня кривые + я очень плохо воспринимаю информацию,то найти годного кода или исхода не смог.
Поэтому прошу помощи у вас)
Нужно что-бы при нажатии кнопки "HTTP/S" начался парс прокси с ссылки такого типа -

Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!

API KEY&proxy_type=https

 

[SIyfox]

Никто не поможет?

 

[AnGel]

Ключ предоставь для начала под хайд

 

[Dream]

Ключ предоставь для начала под хайд

Лучше в лс пусть отправит

 

[AnGel]

Dream, мне только посмотреть в строчку идут все прокси или разделяется построчно.

SIyfox, вот пример если все построчно:

var
  Form1: TForm1;
  function GetProxy(link: string): TStringList;

implementation

{$R *.dfm}

function GetProxy(link: string): TStringList;
var HTTP: THTTPSend; HTML: TStringList;
begin
 HTTP:=THTTPSend; HTML:=TStringList.Create;
 HTTP.Protocol:='1.1';
 HTTP.UserAgent:='Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.36';
 HTTP.HTTPMethod('GET', link);
 HTML.LoadFromStream(HTTP.Document);
 FreeAndNil(HTTP);
 Result:=HTML.Text;
 FreeAndNil(HTML);
end;

procedure TForm1.Button1Click(Sender: TObject);
var temp: TStringList; lss: string;
begin
 temp:=TStringList.Create;
 lss:='https://ya.ru';
 temp:=GetProxy(lss);   //use
 FreeAndNil(temp);
end;

 

[SIyfox]

AnGel, Возможно я кривой,возможно делфи у меня кривая
Такой результат

 

[AnGel]

SIyfox, убери перед implementation процедуру и инструкцию компиляции визуальной формы

Вот так вот должно идти:


Тебе нужно понять этот "скелет":

Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!

Вот тебе порядок, который в голову пришел сейчас:
1) unit - модуль разработки
2) interface - определение внешнего интерфейса модуля
3) uses - подключаемые модули
4) type - новый тип данных
5) var - объявление переменных
6) const - объявление констант
7) label - объявление лейблов
8) implementation - начинает раздел исполняемого кода в модуле
9) операторы - твой код между begin и end и другими зарезервированными словами

 

[Decode]

AnGel, Возможно я кривой,возможно делфи у меня кривая
Такой результат
Посмотреть вложение 28986

Советую скачать CNpack и посмотреть хотя бы гайды в инете (лучше видео)
И еще я бы рекомендовал посидеть здесь

Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!

Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!

и

Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!

задавать свои вопросы или просто смотреть )

 

[fenum]

как у вас всё сложно, huinya:=GET('url');
smemo1.text:=huynya.text;

 

[K_NoW]

как у вас всё сложно, huinya:=GET('url');
smemo1.text:=huynya.text;

чувак спасибо, ты бог.

 

[SIyfox]

Такой вопрос,почему у меня всегда ошибка в type,такое во всех исходниках
Посмотреть вложение 29062

 

[Undeniable]

Такой вопрос,почему у меня всегда ошибка в type,такое во всех исходниках
Посмотреть вложение 29062

Лол)
Подучи не много делфи для начала.
Вот это надо ;
Посмотреть вложение 29063

 

[SIyfox]

Лол)
Подучи не много делфи для начала.
Вот это надо ;
Посмотреть вложение 29063

Cпасибо,не заметил такую маленькую деталь

 

[genz]

как у вас всё сложно, huinya:=GET('url');
smemo1.text:=huynya.text;

Вроде функция в synapse есть httpgettext
Вызывается вот так: HTTPGetText("ya.ru",memo1.text);

 

[yceihw40815]

Lul, парсиш страницу, с тела ответа достаеш прокси, сейвиш в txt..
--- Пост обновлен ---
HTTP.HTTPMETOD('GET', 'LINK');
PROXY.LOADFROMSTREAM(HTTP.DOCUMENT);

 

[SIyfox]

Решил все основные ошибки,но появились теперь другие
Появляются они когда я пытаюсь запустить свой софт
Посмотреть вложение 29107
Посмотреть вложение 29108
Посмотреть вложение 29109

 

[AnGel]

SIyfox, смотрим мой uses. Я подключал синапс. Установи синапс

 

[MrSmitix]

Решение: хватит страдать херней. Переходи на нормальный язык

P.S. Сайт умер

 

[Dream]

Решение: хватит страдать херней. Переходи на нормальный язык

P.S. Сайт умер

И какой для тебя нормальный язык? c++?

 

[SIyfox]

SIyfox, смотрим мой uses. Я подключал синапс. Установи синапс

Установлен,без него было примерно 10 ошибок