Code: Alles auswählen
curl --user user:passwort http://192.168.1.99/mjpeg/snap.cgi?chn=0 --digest -o /home/pi/virtual/webcam1.jpg >/dev/null 2>&1 >/dev/null 2>&1 >/dev/null 2>&1 >/dev/null 2>&1 >/dev/null 2>&1 >/dev/null 2>&1
Deswegen habe ich mir was mit fphttpclient zusammengebastelt. Ich habe die Prozedur zum Senden von Bildern per POST versucht herumzudrehen, um die Bilder zu empfangen, aber ich komme da nicht weiter:
Code: Alles auswählen
procedure Tcam.ReadCamera();
var
httpClient : TFPHTTPClient;
param : TStringList;
respo : TStringStream;
fname : string;
url : string;
txt : string = '';
begin
url := 'http://192.168.1.99/mjpeg/snap.cgi';
fname := '/home/pi/virtual/webcam1.jpg';
try
httpClient := TFPHTTPClient.Create(nil);
try
param := TStringList.Create();
param.Values['user'] := 'user';
param.Values['pwd'] := 'passwort';
param.Values['chn'] := '0';
respo := TStringStream.Create('');
==> wie hier weiter?
httpClient.FileFormPost(url, param, 'photo', fname, respo);
respo.Destroy;
param.Free;
except
log.Message('Fehler beim Senden');
end;
finally
httpClient.Free;
end;
end;
end;
Nur was wäre hiervon geeignet: https://svn.freepascal.org/svn/fpc/tags ... pclient.pp? FileFormPost, FormPost, HTTPMethod?