Из 1С 8.3 в Delphi 6

1С v8

11.02.19

✎

11:01

Всем привет.
Сразу извиняюсь если не в тему )
Тока не пинайтесь больно. Есть рабочий кусок кода:

Соединение = Новый HTTPСоединение(ПараметрыТелефона.ip_Адрес_Телефона, ПараметрыТелефона.Port_Телефона, ПараметрыТелефона.Login_Телефона, ПараметрыТелефона.Password_Телефона);
Запрос = Новый HTTPЗапрос("servlet?number=" + НомерТелефона);
Ответ = Соединение.Получить(Запрос);

ПараметрыТелефона - это структура.
Как такой функционал реализовать в Delphi 6. Не спрашивайте зачем, просто так надо )

1 sound

11.02.19

✎

11:08

хотя бы понять с помощью какой компоненты. Пока на ум приходит сделать так IdHTTP1: TIdHTTP;

2 END

11.02.19

✎

11:11

Этот вопрос лучше на форумах по Delphi задавать.

3 sound

11.02.19

✎

11:12

(2) Не факт ) Делфисты врядли 1С-ный код чухают )

4 Вафель

11.02.19

✎

11:12

но причем здесь структура

5 Вафель

11.02.19

✎

11:12

хотя она тоже в делфи есть

6 sound

11.02.19

✎

11:14

(4) да структура ни при чем, просто 4 параметра

7 MyNick

11.02.19

✎

11:14

(3) а чего там чухать. Три строчки на русском.

8 Вафель

11.02.19

✎

11:15

ну так вопрос: как выполнить HTTP запрос на делфи - тривиальный. в гугле миллион ответов

9 СтепаDS

11.02.19

✎

11:30

(3) А причем тут 1с-ный код? Есть задача, есть реализация.

10 sound

11.02.19

✎

11:37

а по сути есть ответы?)

11 Вафель

11.02.19

✎

11:37

(10) сколько готов платить?

12 NorthWind

11.02.19

✎

11:39

как я понимаю, это REST? Тогда только IdHTTP. REST в шестерке не поддерживался.

13 NorthWind

11.02.19

✎

11:40

SOAP поддерживался, а REST нет. Может, в более поздних версиях...

14 sound

11.02.19

✎

11:41

(13) жаль (

15 NorthWind

11.02.19

✎

11:43

Либо найти сторонние компоненты. Я в свое время находил нашлепку для реста над IdHTTP. Давайте почту, скину сорцы, если есть желание поразбираться

16 NorthWind

11.02.19

✎

11:44

Файлик назывался SimpleRestClient-master.zip. Может, сами найдете...

17 NorthWind

11.02.19

✎

11:45

Хотя вот ссылка на гугл драйв: https://drive.google.com/open?id=1sKtdjkJaILqtChDMuOfxcLxzadJ3rH2G

18 sound

11.02.19

✎

11:46

(15) Спасибо за ответы! Как-то сложно все, я думал все проще

19 NorthWind

11.02.19

✎

11:48

(18) Да ничего сложного в общем-то. REST - это тупо HTTP-запросы с параметрами, поэтому вы все правильно угадали, это IdHTTP. Только к нему можно еще наклепать дополнительных сервисных нашлепок, чтобы удобнее было.

20 NorthWind

11.02.19

✎

11:50

Парсер JSON, например...

21 sound

11.02.19

✎

11:51

(19) я вот думаю, то, что я хочу, должно в пару строчек уложиться, собственно в том и весь вопрос

22 NorthWind

11.02.19

✎

11:57

(21) так-то да, только Delphi 6 - это 2000 год. REST и JSON, если я верно помню, тогда только изобрели и еще практически не использовали. SOAP уже был и использовался.

23 NorthWind

11.02.19

✎

11:59

в 1С парсер джейсона тоже появился... мягко скажем... не тогда.

24 trdm

11.02.19

✎

12:23

(13) > SOAP поддерживался, а REST нет. Может, в более поздних версиях...

REST - это вроде надстройки. Архитектурный элемент. РАботает поверх TCP/IP.
Просто надо реализовать самому.

25 Garykom

гуру

11.02.19

✎

12:31

(24) Поверх tcp/ip легко говоря реализовывать REST задолбаешься

26 trdm

11.02.19

✎

13:17

(25) ну так пусть пишет поверх http.

27 NorthWind

11.02.19

✎

14:11

(25) не нужно. Там есть Internet Direct (Indy), где есть все старые протоколы прикладного уровня вроде FTP, HTTP и т.д. Причем довольно юзабельно и удобно все сделано. Но вот новомодных фишек вроде REST и JSON - нет, их надо допиливать. В 2009 тоже нет. Более свежие не смотрел.

28 Nyoko

11.02.19

✎

14:26

Попробуй в Lazarus перевести, или скачай https://www.embarcadero.com/ru/products/delphi/starter на нем сделай, там есть уже все для REST

29 Вафель

11.02.19

✎

14:35

не ужно для делфи 6 нет ни одного компонента который бы json парсил?

30 Nyoko

11.02.19