Howdy, Stranger!
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.5K Microsoft Dynamics NAV
- 18.5K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 115 Navision DOS
- 854 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 615 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 267 Dynamics CRM
- 109 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 992 SQL General
- 384 SQL Performance
- 33 SQL Tips & Tricks
- 34 Design Patterns (General & Best Practices)
- Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.7K General
- 1.1K General Chat
- 1.6K Website
- 79 Testing
- 1.2K Download section
- 23 How Tos section
- 259 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions
Options
AL Byte[] to PDF
kanubelkarl
Member Posts: 1
Hello,
I've created a in C# a String with a Byte[] of a PDF
378068704549465510105232483211198106104073100101110116105116121411010111010011198106105332483211198106104065100111981014110101110100111981061056324832111981061060601047701051081161011143247701089711610168101991111001011047761011101031161043255...
Now I want to convert this string back to a PDF.
procedure CreatePDF()
var
lTempBlob: Record TempBlob temporary;
lstmoStream: OutStream;
lcuFileMgt: Codeunit "File Management";
i: Integer;
lText: Text;
begin
lText := GetString();
lTempBlob.Insert();
lTempBlob.Blob.CreateOutStream(lstmoStream);
for i := 1 to StrLen(lText) do begin
lstmoStream.write(GetBit(lText));
end;
gTempBlob.CalcFields(Blob);
lcuFileMgt.BLOBExport(lTempBlob, 'BlobToPDF.pdf', true);
end;
The function creates now a PDF, but I can't open it.
Versions:
AL Language: 3.0.107312
Business Central: 14.0.29487.0
I've created a in C# a String with a Byte[] of a PDF
378068704549465510105232483211198106104073100101110116105116121411010111010011198106105332483211198106104065100111981014110101110100111981061056324832111981061060601047701051081161011143247701089711610168101991111001011047761011101031161043255...
Now I want to convert this string back to a PDF.
procedure CreatePDF()
var
lTempBlob: Record TempBlob temporary;
lstmoStream: OutStream;
lcuFileMgt: Codeunit "File Management";
i: Integer;
lText: Text;
begin
lText := GetString();
lTempBlob.Insert();
lTempBlob.Blob.CreateOutStream(lstmoStream);
for i := 1 to StrLen(lText) do begin
lstmoStream.write(GetBit(lText));
end;
gTempBlob.CalcFields(Blob);
lcuFileMgt.BLOBExport(lTempBlob, 'BlobToPDF.pdf', true);
end;
The function creates now a PDF, but I can't open it.
Versions:
AL Language: 3.0.107312
Business Central: 14.0.29487.0
0