SetAsBase64Binary (binary type)
De Wiki1000
(Différences entre les versions)
(Nouvelle page : <source lang='delphi'>procedure SetAsBase64Binary(const iValue:string; iCompression:Integer);</source> Cette procédure charge le contenu de l'attribut à partir d'un flux encodé e...) |
|||
Ligne 14 : | Ligne 14 : | ||
Exemple | Exemple | ||
<source lang='delphi'> | <source lang='delphi'> | ||
+ | //Code source | ||
+ | procedure TFWBlobDataType.setAsBase64Binary(const value:string; iCompression:Tb64Compression); | ||
+ | var ms:TmemoryStream; | ||
begin | begin | ||
+ | ms := TMemoryStream.Create; | ||
+ | try | ||
+ | base64BinaryDecode(value,ms,iCompression); | ||
+ | ms.Position := 0; | ||
+ | LoadFromStream(ms,FALSE); | ||
+ | finally | ||
+ | ms.Free; | ||
+ | end; | ||
end; | end; | ||
</source> | </source> | ||
Voir aussi | Voir aussi | ||
+ | |||
+ | * [[GetAsBase64Binary (binary type)|GetAsBase64Binary]] | ||
{{Footer|Binaire (type)}} | {{Footer|Binaire (type)}} | ||
[[category:Binaire]] | [[category:Binaire]] |
Version du 30 juin 2010 à 17:55
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
Whos here now: Members 0 Guests 0 Bots & Crawlers 1 |