base64 – AHMET AYDINLIK

E-DEVLET, EFATURA
base64, E-arsivfatura, e-fatura, Logo, xml, xslt, xstl dizayn

5May

E-Fatura Xml deki base64 resmi ekleme

E-Faturaların Xml dosyasına Logo, QrCode ,Barkod vs. gibi resimler base64 formatında eklenmiş olabilir bunları xslt dizaynında aşağıdaki gibi kullanabiliriz

Alttaki koddaki örneğe göre AdditionalDocumentReference bölümünde :DocumentTypeCode u LOGO olan veri var ise

AdditionalDocumentReference verisinin altındaki cac:Attachment içindeki cbc:EmbeddedDocumentBinaryObject içine eklenen base64 veriyi resmin src sine ekliyoruz

	<xsl:for-each select="//n1:Invoice/cac:AdditionalDocumentReference">
										<xsl:if test="cbc:DocumentTypeCode = 'LOGO'">
											<img width="175" >
												<xsl:attribute name="src">
													<xsl:value-of select="concat('data:image/jpeg;base64,',cac:Attachment/cbc:EmbeddedDocumentBinaryObject)"/>
												</xsl:attribute>
												<xsl:attribute name="title">
													<xsl:value-of select="//n1:Invoice/cbc:UUID"/>
												</xsl:attribute>
												<xsl:attribute name="alt">
													<xsl:value-of select="//n1:Invoice/cbc:UUID"/>
												</xsl:attribute>
											</img>												
										</xsl:if>
									</xsl:for-each>

Aşağıdaki Xml içerik verisidir

<cac:AdditionalDocumentReference>
		<cbc:ID>1</cbc:ID>
		<cbc:IssueDate>2022-11-25</cbc:IssueDate>
		<cbc:DocumentTypeCode>LOGO</cbc:DocumentTypeCode>
		<cbc:DocumentType>JPG</cbc:DocumentType>
		<cbc:DocumentDescription>Firma Logo Dosyası</cbc:DocumentDescription>
		<cac:Attachment>
			<cbc:EmbeddedDocumentBinaryObject characterSetCode="UTF-8" encodingCode="Base64" filename="logo.jpg" mimeCode="application/xml">bas64verisi</cbc:EmbeddedDocumentBinaryObject>
		</cac:Attachment>
	</cac:AdditionalDocumentReference>

procedure TForm3.Button1Click(Sender: TObject); var stream: TMemoryStream; begin stream := TMemoryStream.Create; try stream.LoadFromFile(JvFilenameEdit1.Text); Memo1.Text := EncodeBase64(stream.Memory, stream.Size); finally stream.Free; end; end;

procedure TForm3.Button2Click(Sender: TObject); var stream : TmemoryStream; begin stream := TmemoryStream.Create; stream.write(TNetEncoding.Base64.DecodeStringToBytes(Memo1.Text), length(TNetEncoding.Base64.DecodeStringToBytes(Memo1.Text))); stream.Position := 0; stream.SaveToFile('d:\test2.pdf'); end;

AHMET AYDINLIK

Etiket arşivi: base64

E-Fatura Xml deki base64 resmi ekleme

Delphi Dosya base64 Decode ve Encode