Siema!
Chcialbym wyslac plik przez internet uzywajac komponentu ICS (mam wszystko i caly kod). Jako SendStream podaje:
//costam
DeliveS:=TStringStream.create(Format('plik=%s', [SCIEZKA]));
HttpCli2.SendStream:=DeliveS;
HttpCli2.RcvdStream:=ReciveS;
HttpCli2.URL:='adres/plik.php';
try
HttpCli2.Post;
//itd...
i kupa, nie przesyla.
Dodam tylko ze skrypt php do ktorego odnosi sie moj program to:
<?php
$upload_dir = $_SERVER['DOCUMENT_ROOT'];
$maxfilesize = 102400;
$userfile = $HTTP_POST_FILES['plik'];
$phpself = $HTTP_SERVER_VARS['PHP_SELF'];
if(is_uploaded_file($userfile['tmp_name'])) {
if($userfile['size'] <= $maxfilesize) {
if(move_uploaded_file($userfile['tmp_name'],
$upload_dir.'/'.$userfile['name']))
echo 'ok';
}
}
echo $userfile['tmp_name'];
?>