[Delphi] Binary bestanden posten naar PHP-script

[pelleke]

Ik ben bezig met een CMS, en wil nu bestanden (zoals plaatjes, of andere bestanden) uploaden naar mijn webserver.

Dat uploaden mag niet via FTP, nee, er staat een PHP script die het afhandelt en opslaat in een MySQL DB. Daarin gebeurt iets als dit:

PHP:

//Voorafgaande is niet relevant
$content = $_POST['filecontent']; 
$filename = $_POST['name']; 
$filesize = $_POST['size']; 

$data = addslashes($content, $filesize); 

$sql = "insert into mytable (FileName,FileContent, FileSize) values ('$filename','$data','$FileSize')"; 
$result = mysql_query($sql);

Nu wil ik weten:

In mijn programma open ik een bestand (zoals bijvoorbeeld een .gif-bestand). Ik wil nu de inhoud van dat bestand 'posten' met een TIdHTTP, alleen:

1. Hoe open ik een file, en lees ik hem zo in dat ik hem makkelijk kan 'storen'
2. Hoe post ik de (binary) inhoud van de file met een TIdHTTP?

Ik heb het al met een string geprobeerd, maar dat werkt dus voor geen hout. Bovendien: als er instaat dat ie op een nieuwe regel begint, dan ziet 'Post' dat als een nieuwe variabele. Kan iemand mij zeggen hoe het wel moet?

[LordLarry]

1) Met een Stream. TStream of een afgeleide zoals TFileStream of TMemoryStream.
2) TIdHTTP heeft verschillende functies zoals Post en Put en die hebben beide een geoverloade versie waarbij je de gegevens via een parameter ASource: TStream mee kan sturen.

Delphi:

var F: TFileStream;
begin
  F := TFileStream.Create('Bestand.exe', fmOpenRead);
  try
    Result := IdHTTP1.Post('http://someurl.nl', F);
  finally
    F.Free;
  end;
end;

[pelleke]

Dit is dubbel werk, toch Lord Larry?

M.a.w.: Hij kan dicht. En voor diegenen die ook de oplossing nog willen weten:

code:

var F: TFileStream;
begin
  F := TFileStream.Create('Bestand.exe', fmOpenRead);
  try
    Result := IdHTTP1.Post('http://someurl.nl', F);
  finally
    F.Free;
  end;
end;

Dank je wel.

[Creepy]

pelleke schreef op 14 december 2003 @ 22:40:
Dit is dubbel werk, toch Lord Larry?

Huh? wat bedoel je?

M.a.w.: Hij kan dicht. En voor diegenen die ook de oplossing nog willen weten:

code:

var F: TFileStream;
begin
  F := TFileStream.Create('Bestand.exe', fmOpenRead);
  try
    Result := IdHTTP1.Post('http://someurl.nl', F);
  finally
    F.Free;
  end;
end;

Eh... dit is precies wat LordLarry net poste? Of ben ik scheel aan het worden?