Datei nach VirusTotal mittels Indy

[stOrM]

Ok nun gehts für die Richtigkeit (Benutzung der Indy Komponente) keine Gewähr

Lösung

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  stream : TIdMultipartFormDataStream;
  const
    aSelector = 'http://www.virustotal.com/api/scan_file.json';
begin
  stream := TIdMultipartFormDataStream.Create;
  try
    idHttp1.Request.ContentType := stream.RequestContentType;
    stream.AddFormField('key', aKey);
    stream.AddFile('file', 'Test.exe', 'application/octet-stream');
    stream.Position := 0;
    Memo1.Lines.Text := idHttp1.Post(aSelector, stream);
  finally
    stream.Free;
  end;
end;

Ps. Danke für die Erklärung Valle

[Blubbels]

Sorry, Versehen

[CCRDude]

Daran habe ich neulich auch mal gearbeitet

Eine vollständige Delphi-Klasse wollte ich für VirusTotal eh mal hochladen; siehe also snlAPIVirusTotal.pas.