|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.08.2008, 13:43 | #1 |
Пользователь
Регистрация: 23.08.2008
Сообщений: 40
|
Сохранить файл посланный делфи
Вообщем суть процесса в том что при помощи делфи нужно послать файлик на сайт, а сайт должен его принять и сохранить. Как послать файл вроде понял. Легче все при помощи IdHTTp. А вот как принять не знаю.
|
23.08.2008, 15:54 | #2 |
Antimoderаtoris
Участник клуба
Регистрация: 08.02.2008
Сообщений: 1,251
|
http://www.php.net/manual/ru/features.file-upload.php
Должно помочь. Если есть где мануал по IdHTTp. Как он отсылает файл серверу? Обычным HTTP запросом?
98% из тысячи моих постов сделаны в профильном подфоруме. Я не накручиваю свои посты болтанием в "курилке", а ты?
|
27.08.2008, 13:08 | #3 |
Пользователь
Регистрация: 23.08.2008
Сообщений: 40
|
Спасибо за помощь, вообщемто я это знал. Я просто был озадачен тем как делфи передает его. Там просто передается поток а не переменая. Скорее это вопрос стоило задать в разделе делфи. Ну а получилось следующее. Делфи посылает так
procedure TForm1.Button1Click(Sender: TObject); var FileName: string;response: string; var formData: TIdMultiPartFormDataStream; begin FileName := 'c:\pic.gif'; formData := TIdMultiPartFormDataStream.Create; formData.AddFile('userfile',fileNam e,'application/octet-stream'); formData.AddFormField('param1', 'value1'); //HttpObject.Port := Port; response := idHTTP1.Post('http://new/index.php',formData); Label1.Caption:= response ; Memo1.Lines.Text:= response ; end; а PHP принимает $uploaddir = '/var/www/uploads/'; $uploadfile = $uploaddir . basename($_FILES['userfile']['name']); print "<pre>"; if (move_uploaded_file($_FILES['userfile']['tmp_name'], $uploadfile)) { print "File is valid, and was successfully uploaded. "; print "Here's some more debugging info:\n"; print_r($_FILES); } else { print "Possible file upload attack! Here's some debugging info:\n"; print "Possible file upload attack! Дополнительная отладочная информация:\n"; print_r($_FILES); } print "</pre>"; А дальше дело твоего воображения. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Полностью сохранить форму в файл как .dfm | anton14 | Общие вопросы Delphi | 5 | 16.10.2010 18:42 |
как сохранить строчки в TXT файл | Ярослав | Помощь студентам | 2 | 17.05.2008 18:43 |
Сохранить файл в блокноте в формате UTF-8 | Alar | Общие вопросы Delphi | 6 | 04.04.2008 05:29 |
Как сохранить все что изображено на Canvas в файл? | PilGrim | Мультимедиа в Delphi | 2 | 01.11.2007 21:03 |