Codeblock Onlinehilfe
Codeblock Onlinehilfe
Breadcrumbs

TBeMemoBOAttach

TBeMemoBOAttach

Die Klasse TBeMemoBOAttach kapselt Eigenschaften und Funktionen für die Datei-Anhänge eines Memos.

Funktionen

Funktion

Parameter

Beschreibung

Attach.CBAttachmentInfoList():A

Informationen zu den vorhandenen Anhängen
Aufbau des Arrays: {{ Index:N, Offset:N, ZipSize:N, FileSize:N, FileName:C, FileType:N, ContentID:C }, { ... }, ... }

aSkipAttachments:L

"Echte"-Anhänge überspringen

aSkipLinks:L

Verknüpfungen überspringen

aSkipEmbedded:L

"Embedded" überspringen

Attach.CBAttachmentAdd():L

Fügt eine Datei als Anhang hinzu

aFileName:C

Quelldatei (inkl. Pfad)

aSaveAsLink:C

Nur als Verknüpfung anhängen

aSaveAsEmbedded:C

Als "embedded" kennzeichnen (nicht für Verknüpfungen)

Attach.CBAttachmentDelete():L

Löscht eine Datei aus dem Anhang

aFileName:C

Name des Anhangs der gelöscht werden soll

Attach.CBAttachmentSave()

Speichert einen Anhang als Datei

aFileName:C

Anhang der gespeichert werden soll

aDestinationFile:C

Ausgabedatei (inkl. Pfad)

aSaveAsFullHTML:L

"ORIGINAL.HTML" inkl. aller eingebundenen Dateien speichern

Attach.HasRealAttachments():L

Memo hat "echte" (keine embedded) Anhänge (entspricht DAB065:ANHANG)



Attach.HasAttachments():L

Abfrage auf vorhandene Anhänge

aSkipAttachments:L

"Echte"-Anhänge überspringen

aSkipLinks:L

Verknüpfungen überspringen

aSkipEmbedded:L

"Embedded" überspringen

Beispiel 

//******************************************************************************
//******************************************************************************
// Anhänge
//******************************************************************************
//*****************************************************************************<h3>

//------------------------------------------------------------------------------
// Informationen zu den Anhängen eines Memos ermitteln
//------------------------------------------------------------------------------
|oMemoBo, aAttachmentInfos|

oMemoBo := CreateObject('TBeMemoBo', 'MemoBo'),
startseq,
  oMemoBo.MemoID := 1234, // MemoBO positionieren
  // Informationen für alle Attachments holen (Echte, Verknüpfungen, Eingebettete)
  aAttachmentInfos := oMemoBo.Attach.CBAttachmentInfoList(False, False, False),
  // Array Aufbau: Index, Offset, ZipSize, FileSize, FileName, FileType, ContentID
  writeln(ArrToStr(aAttachmentInfos)),
always,
  DestroyObject(oMemoBo),
stopseq,

//------------------------------------------------------------------------------
// Datei an Memo anhängen
//------------------------------------------------------------------------------
|oMemoBo, aFileName, i|

oMemoBo := CreateObject('TBeMemoBo', 'MemoBo'),
startseq,
  oMemoBo.MemoID := 1234, // MemoBO positionieren
  oMemoBo.CBEdit(),       // Edit-Modus
  // (gesammte) Datei als normalen Anhang anfügen
  oMemoBo.Attach.CBAttachmentAdd('C:\Temp\Info.txt', False, False),
  oMemoBo.CBPost(),
always,
  DestroyObject(oMemoBo),
stopseq,

//------------------------------------------------------------------------------
// Anhang von Memo löschen
//------------------------------------------------------------------------------
|oMemoBo|

oMemoBo := CreateObject('TBeMemoBo', 'MemoBo'),
startseq,
  oMemoBo.MemoID := 1234, // MemoBO positionieren
  oMemoBo.CBEdit(),       // Edit-Modus
  // Datei löschen
  if oMemoBo.Attach.CBAttachmentDelete('Info.txt') then
     oMemoBo.CBPost(),
  else
     oMemoBo.CBCancel(),
  endif,
always,
  DestroyObject(oMemoBo),
stopseq,

//------------------------------------------------------------------------------
// Alle Anhänge eines Memos exportieren
//------------------------------------------------------------------------------
|oMemoBo, aAttachmentInfos, i, aFileName|

oMemoBo := CreateObject('TBeMemoBo', 'MemoBo'),
startseq,
  oMemoBo.MemoID := 1234, // MemoBO positionieren
  startseq,
    // Liste aller Attachments ermitteln
    aAttachmentInfos := oMemoBo.Attach.CBAttachmentInfoList(False, False, False),
    // Jedes Attachment speichern
    for i:=1 to ALen(aAttachmentInfos) do
      aFileName := aAttachmentInfos[i,5], // Dateiname aus Info-Array
      writeln('Datei ' + str(i) + ' von ' + Str(Alen(aAttachmentInfos)) + ', ' + aFileName),
      // Datei speichern, wenn ORIGINAL.HTML vorhanden sind dann werden diese als volle HTML Dateien
      // gespeichert (inkl. Bilder...)
      oMemoBo.Attach.CBAttachmentSave(aFileName, 'C:\temp\export\'+ExtractFileName(aFileName), True),
    end,
  onerror,
    writeln('Fehler: Datei konnte nicht gespeichert werden' + crlf + GetErrorText()),
  stopseq,
always,
  DestroyObject(oMemoBo),
stopseq,

Weitere Verknüpfungen