Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
 Аватар для pixel
26 / 19 / 5
Регистрация: 19.05.2009
Сообщений: 2,294

Как из консольного приложения отправить текстовую строку на свой сайт?

09.04.2015, 14:05. Показов 2264. Ответов 27
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Приветствую.
Собственно, подскажите сабж.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.04.2015, 14:05
Ответы с готовыми решениями:

Как отправить через форму свой текст на сайт и получить ссылку ?
Есть сайты https://privnote.com/ и https://secureshare.pw/ (пишу оба т.к не знаю с каким из них легче работать) Всё просто , при нажатии...

Как посадить свой домен на свой сайт, который на домашнем компе?
У меня статический ip. на картинке видно что сейчас в настройках, в качестве записи A указал свой статический ip, больше в 1-ой...

Как разделить текстовую строку
Здравствуйте, есть строка, например: ljkhhuIUYyhiygYGY765877...............................................и т.д. Строка больше 500...

27
Native x86
Эксперт Hardware
 Аватар для quwy
6860 / 3792 / 1026
Регистрация: 13.02.2013
Сообщений: 11,861
09.04.2015, 18:30
Студворк — интернет-сервис помощи студентам
Вот, что оно мне ответило:
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
HTTP/1.1 301 Moved Permanently
Date: Thu, 09 Apr 2015 15:42:59 GMT
Server: Apache
Location: http://www.domaine.fr/dir/file.php?value1=test&value2=it
Content-Length: 328
Content-Type: text/html; charset=iso-8859-1
 
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>301 Moved Permanently</title>
</head><body>
<h1>Moved Permanently</h1>
<p>The document has moved <a href="http://www.domaine.fr/dir/file.php?value1=test&amp;value2=it">here</a>.</p>
<hr>
<address>Apache Server at domaine.ru Port 80</address>
</body></html>
Что говорит о редиректе, так что или обрабатывайте коды 3xx в соответствии с RFC 2616, или подключайтесь сразу к www.domaine.fr и в Host его же вписывайте.
0
 Аватар для pixel
26 / 19 / 5
Регистрация: 19.05.2009
Сообщений: 2,294
10.04.2015, 15:44  [ТС]
странно, я вообще от балды написал урл, но у меня все равно бэд реквест

Добавлено через 20 часов 36 минут
Цитата Сообщение от quwy Посмотреть сообщение
Вот, что оно мне ответило:
ну поделитесь кодом - всего то 5 строк. что у меня не так сделано то?
0
Native x86
Эксперт Hardware
 Аватар для quwy
6860 / 3792 / 1026
Регистрация: 13.02.2013
Сообщений: 11,861
10.04.2015, 17:17
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket1.Host:= 'domaine.ru';
  ClientSocket1.Port:= 80;
  ClientSocket1.Open;
  while not ClientSocket1.Active do Application.ProcessMessages;
 
  ClientSocket1.Socket.SendText('GET /dir/file.php?value1=test&value2=it HTTP/1.1'#13#10'Host: domaine.ru'#13#10#13#10);
end;
 
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Text:= Socket.ReceiveText;
end;
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
HTTP/1.1 301 Moved Permanently
Date: Fri, 10 Apr 2015 14:34:14 GMT
Server: Apache
Location: http://www.domaine.fr/dir/file.php?value1=test&value2=it
Content-Length: 328
Content-Type: text/html; charset=iso-8859-1
 
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>301 Moved Permanently</title>
</head><body>
<h1>Moved Permanently</h1>
<p>The document has moved <a href="http://www.domaine.fr/dir/file.php?value1=test&amp;value2=it">here</a>.</p>
<hr>
<address>Apache Server at domaine.ru Port 80</address>
</body></html>
0
 Аватар для pixel
26 / 19 / 5
Регистрация: 19.05.2009
Сообщений: 2,294
10.04.2015, 17:27  [ТС]
толи лыжи не едут ... у меня вообще тишина. я заметил что у вас домен то ru то fr. поменял - не помогло
0
Native x86
Эксперт Hardware
 Аватар для quwy
6860 / 3792 / 1026
Регистрация: 13.02.2013
Сообщений: 11,861
10.04.2015, 18:41
pixel, попробуйте использовать только сокет, без дополнений в виде потоков.
0
 Аватар для pixel
26 / 19 / 5
Регистрация: 19.05.2009
Сообщений: 2,294
10.04.2015, 18:58  [ТС]
я скопировал ваш код. свой весь выключил. просто запускается форма и в мемо ничего не появляется

Добавлено через 8 минут
сорри. туплю. забыл сменить режим. поменял - заработало. а почему с потоком не работает?

Добавлено через 2 минуты
и еще вопрос. почему все таки выдается еще и заголовок?
Code
1
2
3
4
5
6
7
HTTP/1.1 200 OK
Server: nginx/1.6.2
Date: Fri, 10 Apr 2015 15:57:19 GMT
Content-Type: text/html; charset=utf-8
Content-Length: 9
Connection: keep-alive
X-Powered-By: PHP/5.2.17
его никак отсечь нельзя?
0
 Аватар для pixel
26 / 19 / 5
Регистрация: 19.05.2009
Сообщений: 2,294
14.04.2015, 21:02  [ТС]
а можно через сокеты отправлять файлы? например, jpg-файлы
0
Native x86
Эксперт Hardware
 Аватар для quwy
6860 / 3792 / 1026
Регистрация: 13.02.2013
Сообщений: 11,861
14.04.2015, 21:20
Цитата Сообщение от pixel Посмотреть сообщение
его никак отсечь нельзя?
Можно, отсекайте по двойному вхождению разделителя строк.

Цитата Сообщение от pixel Посмотреть сообщение
а можно через сокеты отправлять файлы? например, jpg-файлы
Можно. Изучайте протокол HTTP, а конкретно метод POST. Там не на много сложнее, чем запросить страницу.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.04.2015, 21:20

Как преобразовать текстовую строку в формулу?
Здравствуйте! Пожалуйста помогите разобраться с проблемой. В Excel в ячейке например А1 есть текстовая строка вида:...

Как правильнее ввести текстовую строку
почему стандартный ввод небезопасен? что лучше делать так char str; char *s; s = gets( str ); почему лучше так?

Как вытянуть в текстовую строку название Свойства (Property)?
Задача в том, что бы вытянуть из имеющихся Свойств название и передать их в конструктор другого класса. Знаю, что делается это вроде бы с...

Как из числа типа double получить текстовую строку?
Как в Matlab-е из числа типа double получить текстовую строку?

Как поворачивать текстовую строку TextBox на определённый угол в форме?
Существует ли возможность поворачивать текстовую строку TextBox на определённый угол в форме?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
28
Ответ Создать тему
Новые блоги и статьи
Саморегулирующийся социальный контракт для сервера cross-section.
Hrethgir 14.08.2026
С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
Установка MinGW GCC 16.2 и CMake
8Observer8 10.08.2026
VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо
anaschu 10.08.2026
Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru