Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

post послать файл на сервер [D7, WinXP]


buben ©   (2007-03-03 14:41:00) 

Написал качалку файлов, примерно так


....
   FSocket := socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
   SockAddrIn.sin_family := AF_INET;
   SockAddrIn.sin_port := htons(80);
   SockAddrIn.sin_addr.s_addr := inet_addr(Site);
   Str := HeapAlloc(hHeap, 0, 1024);
   lstrcpy(Str, 'get ');
   lstrcat(Str, URL);
   lstrcat(Str, ' HTTP/1.0'#10#13'Host: ');
   lstrcat(Str, Site);
   lstrcat(Str, #13#10'Connection: close'#13#10#13#10);
   send(FSocket, Str^, lstrlen(Str), 0);
...


Вопрос в том, как мне закачивалку из этого сделать. Надо послать запрос http://192.168.11.65/poster.php

содержание poster.php примерно такое

....
$ip=getenv("REMOTE_ADDR");
$email=$_POST['a'];
$subject=$_POST['b']."(".$ip.")";
$msg = str_replace(" ","+",$_POST['c']);
$var = $_POST['d'];
.....


Alexey (AZ)   (2007-03-03 22:44:00) [1]

Впрочем, уже ответили.


Alexey (AZ)   (2007-03-03 22:43:00) [2]


> не знаю как указать в запросе на передачу параметра, знал
> да забыл.

http://*****/index.php?param1=blablabla¶m2=blablabla...


Dmitrij_K   (2007-03-03 21:54:00) [3]

POST /test_post.php HTTP/1.1
Host: ****
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.2) Gecko/20070219 Firefox/2.0.0.2
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://****/test_post.php
Content-Type: application/x-www-form-urlencoded
Content-Length: 96

textfield=string1&textfield2=string2&textfield3=string3&Submit=%CF%EE%E4%F2%E2%E5%F0%E4%E8%F2%FC


buben   (2007-03-03 21:29:00) [4]

Alexey (AZ) не знаю как указать в запросе на передачу параметра, знал да забыл.


Alexey (AZ)   (2007-03-03 21:22:00) [5]

Т.е. вы знаете как скачать файл из интернета (методы POST/GET) и теперь вам нужно узнать, как закачать файл в интернет? Я правильно понял?


buben   (2007-03-03 18:29:00) [6]

Alexey (AZ), хочу спросить, тут то

lstrcpy(Str, 'get ');
  lstrcat(Str, URL);
  lstrcat(Str, ' HTTP/1.0'#10#13'Host: ');
  lstrcat(Str, Site);
  lstrcat(Str, #13#10'Connection: close'#13#10#13#10);


мне что писать, что бы файл переслать скрипту. Можно даже не файл, а строку.


Alexey (AZ)   (2007-03-03 17:45:00) [7]


> Написал качалку файлов, примерно так
> ....
> Вопрос в том, как мне закачивалку из этого сделать.

Как из качалки сделать закачивалку? Ничего не понял.


Наверх

Титульная страница Поиск, карта сайта Написать письмо