VPF::отправить данные через POST средставми API

h2o

Дата 30.7.2008, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 199
Регистрация: 19.8.2005

Репутация: нет
Всего: 1

Всем привет. Меня интересует, можно ли через POST запросы файлы передовать? ну думаю что в открытом виде типа просто скопировав так не получится.
По инфе получается что через POST запрос можно передать какую-то инфу, или логин и пароль ввиде строки.
А как передать файл, ввиде строк данных через пост запрос на удаленный интернет сервер через winapi, если такое возможно! и если возможно то с примером.
з.ы. в drkb я пример под winapi не нашел.
заранее спасибо за помощь!

--------------------

Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!

h2o

Дата 31.7.2008, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 199
Регистрация: 19.8.2005

Репутация: нет
Всего: 1

Ну что-то нет ответов. Я просмотрел функции api для соединения с интернетом, но что-то так и не допер как отправить пост запрос да ещё и с данными! Примеры с сокетами есть в дркб, но мне бы хотелось на winapi.

Если такого решения ни кто не знает, может подскажете тогда как хотя бы через сокеты такое сделать. Как пост через сокет отправить я знаю. и как туда инфу вставить. Но вот как отправить файл (не текстовый)? может идею кто подаст хорошую. Ну тупо же не получится построчно читать файл и передовать ввиде текстовой строки. На другой стороне - сервер должен принять эти данные и собрать их в файл.

--------------------

Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!

MetalFan

Дата 31.7.2008, 17:51 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

читай MSDN и учи русский язык...
WinInet, WinHTTP - в поиск

--------------------

There are always someone smarter than you...

h2o

Дата 1.8.2008, 08:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 199
Регистрация: 19.8.2005

Репутация: нет
Всего: 1

Вообщем, нашел как. вот ссылка:
решение
Приведу ещё сюда код:

Код


Uses WinInet;

Const
Host: PChar='хост';
Path: PChar='путь до скрипта';

Function GetFileData(szFile: PChar): PChar;
Var
hFile, dwSize, dwBytes: DWORD;
Begin
Result:='';
hFile:=CreateFile(szFile, GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
If hFile<>INVALID_HANDLE_VALUE then
Begin
dwSize:=GetFileSize(hFile, nil);
Result:=VirtualAlloc(nil, dwSize, MEM_COMMIT, PAGE_READWRITE);
ReadFile(hFile, Result^, dwSize, dwBytes, nil);
End;
CloseHandle(hFile);
End;

Procedure SendPOSTData(Const szHost, szPath, szData: PChar);
Var
hOpenHandle, hConnectHandle, hResourceHandle: Pointer;
Begin
hOpenHandle:=InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
If hOpenHandle<>nil then
Begin
hConnectHandle:=InternetConnect(hOpenHandle, szHost, 80, nil, nil, 3, 0, 0);
If hConnectHandle<>nil then
Begin
hResourceHandle:=HttpOpenRequest(hConnectHandle, 'POST', szPath, nil, nil, nil, INTERNET_FLAG_KEEP_CONNECTION, 0);
If hResourceHandle<>nil then
Begin
HttpSendRequest(hResourceHandle, 'Content-Type: application/x-www-form-urlencoded', 47, szData, lstrlen(szData));
End;
InternetCloseHandle(hResourceHandle);
End;
InternetCloseHandle(hConnectHandle);
End;
InternetCloseHandle(hOpenHandle);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
ZeroMemory(@szBuf, SizeOf(szBuf));
lstrcpy(szBuf, PChar('fname=файл.txt&data='));
lstrcat(szBuf, ((GetFileData(PChar('C:/файл.txt')))));
SendPOSTData(Host, Path, szBuf);
End;

только кое-что не работает. цитирую с ссылки выше:

Цитата

Данный код прекрасно работает и выполняет свою задачу кроме одного очень неприятного момента, если например в отправляемом текстовом(или любом другом файле) содержатся символы " или ', то после загрузки файла на хост данные символы в файле преобразуются в сочетание \" или \'. Т.е. если до отправки в текстовом файле был текст:

aaa"bbb'

То после загрузки на хост содержимое файла меняется на:

aaa\"bbb\'

Для текстовых файлов данное изменение не критично, но вот например для исполняемых очень. Т.к. после загрузки на хост исполняемый файл становится неработоспособным.

Подскажите - как эту проблему исправить? Нужно чтобы файлы загружались без изменений... Сначала думал, что тут дело в параметре Content-Type: application/x-www-form-urlencoded, изменил его на Content-Type: application/octet-stream - приложение вообще перестало работать, т.е. файлы не загружались на хост...( В общем помогите...

Если кто-то знает как решить проблему, испрасьте код и это нужно включить в DRKB т.к. там инфа только о том как принять что-то и нет примеров с windows API и отправкой файла

я посмотрел как реализовывается передача файлов через РОSТ на РНР. тип контента при отправке файла указывается: Content-type: multipart/form-data

Это сообщение отредактировал(а) h2o - 1.8.2008, 09:46

--------------------

Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!

Snowy

Дата 4.8.2008, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Передача файла идёт через мультипарт POST запрос.
Сам файл при этом упаковывается в Base64.
WinHTTP просто передаёт данные.
А вот оформить их в мультипарт и завернуть в Base64 - твоя задача.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »