我在delphi中制作了一个将图片上传到kinvey提供程序的程序,首先程序将TImage组件中的图像保存在特定的目录中然后将其上传到kinvey,问题是每次我打开它上传到kinvey的程序时,现在如何制作确保即使我多次打开程序它也只上传一次
Image1.Repaint;
Image1.Bitmap.SaveToFile('some dir');
procedure TTabbedwithNavigationForm.Timer2Timer(Sender: TObject);
var
fn : string;
Lstream : TFileStream;
Lfile : TBackendEntityValue;
begin
fn := 'the file dir';
try
Lstream := TFileStream.Create(fn, fmOpenRead);
BackendFiles1.Files.UploadFile(fn,Lstream, 'image/png',Lfile);
finally
Lstream.Free;
BackendFiles1.Free;
end;
end;
end.