Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Скриптовые языки программирования > PHP
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.08.2008, 13:43   #1
hoba
Пользователь
 
Регистрация: 23.08.2008
Сообщений: 40
По умолчанию Сохранить файл посланный делфи

Вообщем суть процесса в том что при помощи делфи нужно послать файлик на сайт, а сайт должен его принять и сохранить. Как послать файл вроде понял. Легче все при помощи IdHTTp. А вот как принять не знаю.
hoba вне форума Ответить с цитированием
Старый 23.08.2008, 15:54   #2
Johnatan
Antimoderаtoris
Участник клуба
 
Регистрация: 08.02.2008
Сообщений: 1,251
По умолчанию

http://www.php.net/manual/ru/features.file-upload.php
Должно помочь. Если есть где мануал по IdHTTp. Как он отсылает файл серверу? Обычным HTTP запросом?
98% из тысячи моих постов сделаны в профильном подфоруме. Я не накручиваю свои посты болтанием в "курилке", а ты?
Johnatan вне форума Ответить с цитированием
Старый 27.08.2008, 13:08   #3
hoba
Пользователь
 
Регистрация: 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>";

А дальше дело твоего воображения.
hoba вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Полностью сохранить форму в файл как .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