Отправка файла на сервер через http (Delphi)

Решение:

procedure TForm1.btn1Click(Sender: TObject);
var FileName: string;response: string;
var formData: TIdMultiPartFormDataStream;
begin
FileName := 'D:\xLog.txt';
formData := TIdMultiPartFormDataStream.Create;
formData.AddFile('myfile',fileName,'application/octet-stream');
formData.AddFormField('param1', 'value1');
response := idhtp1.Post('http://sait.ru/upload/gate.php',formData);
mmo1.Lines.Text:= response ;
formData.Free;
end;


gate.php

<? 
    $myfile = $_FILES['myfile']['tmp_name']; 
    $name = basename($_FILES['myfile']['name']); 

    if (!file_exists($myfile)) 
    { 
        echo "error"; 
    } 
    else 
    { 
        move_uploaded_file($myfile, $name); 
        echo "ok"; 
    } 

?>


Атрибуты на папку upload 777,на gate.php 644.

P.S. После сохранения,файлы появляются в окне браузера ftp не сразу.
Теги:
журнал хакер, взлом, компьютерная безопасность, защита данных, взлом Linux, программирование, трояны, защита от проникновения, взлома, вирусы, уязвимости, операционные системы, Deface, программы подбор пароля, взлом пароля, программы взлом мыла, взлом форума, взлом пароля архива, программ rar, взлом сайта, игры, взлом ICQ, создание crack keygen, снифер, перехват, XSS, SQL-Injection, программы для взлома
Добавлено: 24 Февраля 2015 21:38:39 Добавил: Андрей Ковальчук Нравится 0
Добавить
Комментарии:
Нету комментариев для вывода...