Klasse: CL_ABAP_GZIP
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.Hallo zusammen,
hat schon mal irgendjemand mit obiger Klasse gearbeitet und kann mir sagen wie sie verwendet werden muß ??
Irgendwie hab ich dabei ein "kleines" Problem
Möchte mehrere Files (Content als XSTRING vorhanden)
in ein ZIP packen.
hat schon mal irgendjemand mit obiger Klasse gearbeitet und kann mir sagen wie sie verwendet werden muß ??
Irgendwie hab ich dabei ein "kleines" Problem
Möchte mehrere Files (Content als XSTRING vorhanden)
in ein ZIP packen.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Was für ein Problem hast Du denn? Bekommst Du eine Fehlermeldung? Wenn ja, wie lautet diese?Gast hat geschrieben: Irgendwie hab ich dabei ein "kleines" Problem
Hast Du einen Codingsnippet, den Du posten kannst, damit man sich das ansehen kann.
Im Prinzip sind es ja statische Methoden, die Du nutzt (für Text und für Binary-Daten). Die Methoden mußt Du entsprechend der Signatur aufrufen.
Über den Parameter GZIP_OUT nimmst Du dann den komprimierten Stream entgegen.
Im Rahmen von BSP kannst Du den dann an den Browser schicken (Response) mit Länge und Mimetype.
Hallo,
Fehlermeldung wäre schön. Dann könnte ich mir ja vielleicht noch ein Bild machen. Aber die BSP bricht einfach ab - ohne Fehlermeldung.
Ist vielleicht der Aufruf der Methode falsch ??
====== Codeextrakt ===
*
.
.
.
lf_content TYPE xstring,
lf_content_all TYPE xstring,
l_string TYPE string.
DATA: lf_size TYPE i,
lf_gzip_out_len TYPE i.
FIELD-SYMBOLS: <fs> TYPE drao,
<gzip_in> TYPE xsequence,
<gzip_out> TYPE xsequence.
*
*
Lesen der Files anhand BAPI_DOCDETAIL
.
Checkout der Files mittels BAPI_CHECKOUTVIEW
im loop um den binären content zu bekommen
.
.
.
.
.
**----------------------------------------------------------------------
* Transfer internal table into a XSTRING
**----------------------------------------------------------------------
LOOP AT lt_content ASSIGNING <fs> .
ls_xdata-line = <fs>-orblk.
APPEND ls_xdata TO lt_xdata.
IF lf_size IS INITIAL.
lf_size = <fs>-orln.
else.
lf_size = lf_size + <fs>-orln.
ENDIF.
ENDLOOP.
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING: input_length = lf_size
IMPORTING: buffer = lf_content
TABLES: binary_tab = lt_xdata
EXCEPTIONS: failed = 1
OTHERS = 2.
IF sy-subrc NE 0.
nothing = 1.
ENDIF.
concatenate lf_content_all lf_content
into lf_content_all in byte mode.
ENDLOOP.
*
* ZIP
ASSIGN lf_content to <gzip_in>.
CALL METHOD cl_abap_gzip=>compress_binary
EXPORTING
raw_in = <gzip_in>
raw_in_len = lf_size
IMPORTING
gzip_out = <gzip_out>
gzip_out_len = lf_gzip_out_len.
*
lf_size = XSTRLEN( lf_content ).
concatenate l_dir l_file into lf_filename.
lf_mimetype = 'application/x-zip-compressed'.
**----------------------------------------------------------------------
* Send data to browser
**----------------------------------------------------------------------
IF nothing = 0.
lf_value = lf_mimetype.
* response = runtime->server->response.
response->set_header_field( name = 'Content-Type'
value = lf_value ).
CONCATENATE 'inline; filename="' lf_filename INTO lf_value.
response->set_header_field( name = 'Content-Disposition'
value = lf_value ).
response->set_data( lf_content ).
response->delete_header_field( 'Cache-Control' ).
response->delete_header_field( 'Expires' ).
response->delete_header_field( 'Pragma' ).
navigation->response_complete( ).
=============
Fehlermeldung wäre schön. Dann könnte ich mir ja vielleicht noch ein Bild machen. Aber die BSP bricht einfach ab - ohne Fehlermeldung.
Ist vielleicht der Aufruf der Methode falsch ??
====== Codeextrakt ===
*
.
.
.
lf_content TYPE xstring,
lf_content_all TYPE xstring,
l_string TYPE string.
DATA: lf_size TYPE i,
lf_gzip_out_len TYPE i.
FIELD-SYMBOLS: <fs> TYPE drao,
<gzip_in> TYPE xsequence,
<gzip_out> TYPE xsequence.
*
*
Lesen der Files anhand BAPI_DOCDETAIL
.
Checkout der Files mittels BAPI_CHECKOUTVIEW
im loop um den binären content zu bekommen
.
.
.
.
.
**----------------------------------------------------------------------
* Transfer internal table into a XSTRING
**----------------------------------------------------------------------
LOOP AT lt_content ASSIGNING <fs> .
ls_xdata-line = <fs>-orblk.
APPEND ls_xdata TO lt_xdata.
IF lf_size IS INITIAL.
lf_size = <fs>-orln.
else.
lf_size = lf_size + <fs>-orln.
ENDIF.
ENDLOOP.
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING: input_length = lf_size
IMPORTING: buffer = lf_content
TABLES: binary_tab = lt_xdata
EXCEPTIONS: failed = 1
OTHERS = 2.
IF sy-subrc NE 0.
nothing = 1.
ENDIF.
concatenate lf_content_all lf_content
into lf_content_all in byte mode.
ENDLOOP.
*
* ZIP
ASSIGN lf_content to <gzip_in>.
CALL METHOD cl_abap_gzip=>compress_binary
EXPORTING
raw_in = <gzip_in>
raw_in_len = lf_size
IMPORTING
gzip_out = <gzip_out>
gzip_out_len = lf_gzip_out_len.
*
lf_size = XSTRLEN( lf_content ).
concatenate l_dir l_file into lf_filename.
lf_mimetype = 'application/x-zip-compressed'.
**----------------------------------------------------------------------
* Send data to browser
**----------------------------------------------------------------------
IF nothing = 0.
lf_value = lf_mimetype.
* response = runtime->server->response.
response->set_header_field( name = 'Content-Type'
value = lf_value ).
CONCATENATE 'inline; filename="' lf_filename INTO lf_value.
response->set_header_field( name = 'Content-Disposition'
value = lf_value ).
response->set_data( lf_content ).
response->delete_header_field( 'Cache-Control' ).
response->delete_header_field( 'Expires' ).
response->delete_header_field( 'Pragma' ).
navigation->response_complete( ).
=============
Hallo,
ich würde Dir empfehlen, den Teil der Komprimierung aus der BSP rauszunehmen und erst mal in einem kleinen Testreport auszuprobieren. Da läßt sich die Fehleranalyse einfacher betreiben. Außerdem siehst Du dann, ob es an der Methode liegt und ob Du evtl. eine Fehlermeldung o.ä. zurückbekommst.
Gruss,
Jens
ich würde Dir empfehlen, den Teil der Komprimierung aus der BSP rauszunehmen und erst mal in einem kleinen Testreport auszuprobieren. Da läßt sich die Fehleranalyse einfacher betreiben. Außerdem siehst Du dann, ob es an der Methode liegt und ob Du evtl. eine Fehlermeldung o.ä. zurückbekommst.
Gruss,
Jens
Hallo Jens,
ohne Komprimierung d.h ohne Aufruf der Klasse funktioniert Alles besten. Ich benutze das Coding ja auch um einzelne Files im Broser downzuloaden und zu viewen. Aber wenn ich ein Sammel- sprich ZIP-File erstellen und einen Massendownload durchführen möchte -->
Werde mal die Mimik in einen Test FB einbauen un d sehen was da dann so passiert.
ohne Komprimierung d.h ohne Aufruf der Klasse funktioniert Alles besten. Ich benutze das Coding ja auch um einzelne Files im Broser downzuloaden und zu viewen. Aber wenn ich ein Sammel- sprich ZIP-File erstellen und einen Massendownload durchführen möchte -->
Werde mal die Mimik in einen Test FB einbauen un d sehen was da dann so passiert.
Hallo,
habe mal ein wenig an meinem Koting
geändert und nunmehr auch zumindest den Erfolg, dass mir die BSP nicht abraucht.
Aber trotzdem --> das ZIP, dass mir die Methode erstellen soll ist leider, wenn ich es an den Browser übergebe , nicht mehr lesbar.
""Ungültiges Archiv""
What the hell....
habe mal ein wenig an meinem Koting
geändert und nunmehr auch zumindest den Erfolg, dass mir die BSP nicht abraucht.Aber trotzdem --> das ZIP, dass mir die Methode erstellen soll ist leider, wenn ich es an den Browser übergebe , nicht mehr lesbar.
""Ungültiges Archiv""
What the hell....
Hallo,
am Bytestream dürfte es eigentlich nicht liegen, da ja das Viewen des Files (ohne dass ich es zum ZIP komprimiere) ja auch funktioniert.
Die Länge des Streams ist doch ein optionaler Parameter. Momentan gebe ich Diese nicht mit.
Könnte es daran liegen ???
am Bytestream dürfte es eigentlich nicht liegen, da ja das Viewen des Files (ohne dass ich es zum ZIP komprimiere) ja auch funktioniert.
Die Länge des Streams ist doch ein optionaler Parameter. Momentan gebe ich Diese nicht mit.
Könnte es daran liegen ???
Verzweiflung,
jetzt hab ich's mal mit 'nem Text sprich "compress_text" probiert und bekomm das gleiche Ergebnis --> Ungültiges Archiv
warum, wieso, weshalb
Wer hat 'ne Erleuchtung und kann mich aus meiner Not befreien
jetzt hab ich's mal mit 'nem Text sprich "compress_text" probiert und bekomm das gleiche Ergebnis --> Ungültiges Archiv
warum, wieso, weshalb
Wer hat 'ne Erleuchtung und kann mich aus meiner Not befreien
Hallo Jens,
hast Du mich vergessen oder läuft's bei Dir auch nicht ??
hast Du mich vergessen oder läuft's bei Dir auch nicht ??
Sehr wahrscheinlich liegt es daran. Gib die Länge des Bytestreams mit.Gast hat geschrieben:Die Länge des Streams ist doch ein optionaler Parameter. Momentan gebe ich Diese nicht mit.
Könnte es daran liegen ???
Hermann
HAllo zusammen,
auch die Angabe des Bytestreams hat bei mir keinerlei positive Auswirkungen. Weiterhin ist das generierte ZIP-File korrupt. D.h. leider läßt es sich nicht mehr öffnen.
Hat Irgendjemand bereits mit dieser Klasse gearbeitet und kann mir mal 'nen Auszug des Codings posten ??
auch die Angabe des Bytestreams hat bei mir keinerlei positive Auswirkungen. Weiterhin ist das generierte ZIP-File korrupt. D.h. leider läßt es sich nicht mehr öffnen.
Hat Irgendjemand bereits mit dieser Klasse gearbeitet und kann mir mal 'nen Auszug des Codings posten ??
Hallo,
habe mich zwischenzeitlich mal schlau gemacht. Die Klasse CL_ABAP_GZIP verführt einen anzunehmen, daß man damit sowohl eine Komprimierung als auch Dekomprimierung machen kann. Dem ist leider nicht so.
Die Dekomprimierung funktioniert zwar (dafür war die Klasse ursprünglich zunächst vorgesehen), die Komprimierung hingegen ist nicht vollständig implementiert. Hier fehlt header und trailer entsprechend des gzip Formataufbaus (siehe auch hier:
www.gzip.org).
Solange das noch nicht implementiert ist, kann man die Klasse nicht zum Komprimieren von Dateien verwenden (es sei denn man schafft es den komprimierten Stream selbst um einen Header und Trailer zu erweitern).
Gruss,
Jens
habe mich zwischenzeitlich mal schlau gemacht. Die Klasse CL_ABAP_GZIP verführt einen anzunehmen, daß man damit sowohl eine Komprimierung als auch Dekomprimierung machen kann. Dem ist leider nicht so.
Die Dekomprimierung funktioniert zwar (dafür war die Klasse ursprünglich zunächst vorgesehen), die Komprimierung hingegen ist nicht vollständig implementiert. Hier fehlt header und trailer entsprechend des gzip Formataufbaus (siehe auch hier:
www.gzip.org).
Solange das noch nicht implementiert ist, kann man die Klasse nicht zum Komprimieren von Dateien verwenden (es sei denn man schafft es den komprimierten Stream selbst um einen Header und Trailer zu erweitern).
Gruss,
Jens
Hallo,
noch folgender Nachtrag: Eventuell könnte man über einen 'Umweg' Dateien zippen.
Funktionsbaustein 'GUI_EXEC'.
Man müßte mit CL_GUI_FRONTEND_SERVICES, Methode GUI_DOWNLOAD, die zu zippenden Dateien in ein bestimmtes Verzeichnis stellen, dann mit GUI_EXEC ein zip-programm Aufrufen (winzip im command mode), dann die gezippten Dateien über GUI_UPLOAD wieder hochladen falls gewünscht.
Alternativ wäre auf dem Applikationsserver möglich, mit open bzw. close dataset zu arbeiten und dann ebenfalls mit einem Betriebssystemkommando zu arbeiten um die Files zu zippen.
Das Betriebssystemkommando kann man ausführen mit:
Gruss,
Jens
noch folgender Nachtrag: Eventuell könnte man über einen 'Umweg' Dateien zippen.
Funktionsbaustein 'GUI_EXEC'.
Man müßte mit CL_GUI_FRONTEND_SERVICES, Methode GUI_DOWNLOAD, die zu zippenden Dateien in ein bestimmtes Verzeichnis stellen, dann mit GUI_EXEC ein zip-programm Aufrufen (winzip im command mode), dann die gezippten Dateien über GUI_UPLOAD wieder hochladen falls gewünscht.
Alternativ wäre auf dem Applikationsserver möglich, mit open bzw. close dataset zu arbeiten und dann ebenfalls mit einem Betriebssystemkommando zu arbeiten um die Files zu zippen.
Das Betriebssystemkommando kann man ausführen mit:
Code: Alles auswählen.
data: l_result type standard table of char100.
CALL 'SYSTEM' ID 'COMMAND' FIELD <KOMMANDO mit vollständigen Pfaden>
ID 'TAB' FIELD l_result.
Jens
Vergleichbare Themen
4
Antw.
Antw.
1260
Views
Views
1
Antw.
Antw.
3168
Views
Views
Methode dynamisch zu Klasse hinzufügen in ABAP Cloud
von Saftladen » 17.02.2026 13:14 • Verfasst in ABAP Objects®
von Saftladen » 17.02.2026 13:14 • Verfasst in ABAP Objects®
1
Antw.
Antw.
5857
Views
Views
Lokale Klasse autom. in globale Klasse ändern
von JohnLocklay » 09.01.2019 09:10 • Verfasst in ABAP Objects®
von JohnLocklay » 09.01.2019 09:10 • Verfasst in ABAP Objects®
5
Antw.
Antw.
7022
Views
Views
Klasse soll Typdefinition von anderer Klasse nutzen
von debianfan » 24.05.2017 11:30 • Verfasst in ABAP Objects®
von debianfan » 24.05.2017 11:30 • Verfasst in ABAP Objects®
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.