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

CODE

//******************************************************************************
//******************************************************************************
// 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

TBeMemoBO