urldownload file il ip kameradan snapshot yapmak??

[forumsad]

arkadaşlar ducki marka 2 adet ip kameram var biri e serisi biri f serisi

E serisi düzgün çalışıyor bir sorunum yok fkat F serisinde delphi ile snaptshot problemi yaşıyorumor

internet explorer'e ip kameranın snaptshot kodunu yazdığımda resim geliyor elimde çevirerek yenile ile
resim çekiyorum bir sorun yok

http://169.254.1.126:81/snapshot.jpg...dmin&pwd=admin

delphi ile kod yazarak resim almaya kalktığımda 1 kere çekiyor başka çekmiyor hata nerde
anlayamadım ayrıca e serisinde çalışıyor sorun yok

delphi kodu bir kaç şekilde var örnekler aşağıda

kod şekilleri:

URLDownloadToFile(nil, 'http://169.254.1.126:81/snapshot.jpg?user=admin&pwd=admin', 'C:\Gresim.jpg', 0, nil);

procedure TForm1.Button2Click(Sender: TObject);
var
MyURL:string;
MyFilename:string;
begin
MyURL:='http://169.254.1.126:81/snapshot.jpg?user=admin&pwd=admin';
MyFilename:='C:\Gresim.jpg';
URLDownloadToFile(nil, PChar(MyURL), PChar(MyFilename), 0, nil);
end;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
const
  // URL Location
  SourceFile = 'http://169.254.1.126:81/snapshot.jpg?user=admin&pwd=admin';
  // Where to save the file
  DestFile = 'c:\temp\sad.jpg';
begin
  if DownloadFile(SourceFile, DestFile) then
  begin
    ShowMessage('Download succesful!');
    // Show downloaded image in your browser
    //*ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
      //*PChar(''), nil, SW_NORMAL)
  end
  else
    ShowMessage('Error while downloading ' + SourceFile)
end;

[tr_escape]

incremental olarak saklaman gerekebilir belki de aynı dosya olduğu için cache olarak algılıyordur