08-13-2018, 12:12 AM
Hi, after uploading an image using TIWFileUploader, I apply the image change on a ClientDataSet, however the TIWDBDImage does not change at run time. How can I solve this? Follow my code.
procedure TFrmConfiguracoes.IWFILEUPLOADERAsyncUploadCompleted(Sender: TObject;
var DestPath, FileName: string; var SaveFile, Overwrite: Boolean);
begin
inherited;
FMsLogo.Clear;
IWFILEUPLOADER.SaveToStream(FileName, FMsLogo);
cdsLogo.Edit;
cdsLogoLOGO.LoadFromStream(FMsLogo);
cdsLogo.Post;
SaveFile := False;
end;
procedure TFrmConfiguracoes.IWFILEUPLOADERAsyncUploadCompleted(Sender: TObject;
var DestPath, FileName: string; var SaveFile, Overwrite: Boolean);
begin
inherited;
FMsLogo.Clear;
IWFILEUPLOADER.SaveToStream(FileName, FMsLogo);
cdsLogo.Edit;
cdsLogoLOGO.LoadFromStream(FMsLogo);
cdsLogo.Post;
SaveFile := False;
end;