Hi,
Try.. exemplary implementation:
1.
uses ... Soap.EncdDecd;
2.
procedure TMainmForm.UnimButton1Click(Sender: TObject);
begin
UniSession.AddJS('ajaxRequest('+ UnimImage1.JSName +', "_img", ["_src="+document.getElementById("signatur").toDataURL()])');
end;
3.
procedure TMainmForm.UnimImage1AjaxEvent(Sender: TComponent; EventName: string;
Params: TUniStrings);
var
stream: TBytesStream;
base64s: string;
begin
if EventName = '_img' then
begin
base64s := Params.Values['_src'];
base64s := StringReplace(base64s, 'data:image/png;base64,', '', [rfReplaceAll]);
stream := TBytesStream.Create(DecodeBase64(base64s));
try
UnimImage1.LoadFromStream(stream);
finally
stream.Free;
end;
end;
end;
Best regards.