SetAsBase64Binary (binary type)
procedure SetAsBase64Binary(const iValue:string; iCompression:Integer);
Cette procédure charge le contenu de l'attribut à partir d'un flux encodé en base 64.
| iValue | Flux encodé en base 64 |
| iCompression | Mode de compression |
Exemple
//Code source
procedure TFWBlobDataType.setAsBase64Binary(const value:string; iCompression:Tb64Compression);
var ms:TmemoryStream;
begin
ms := TMemoryStream.Create;
try
base64BinaryDecode(value,ms,iCompression);
ms.Position := 0;
LoadFromStream(ms,FALSE);
finally
ms.Free;
end;
end;
Voir aussi