Dateinamenliste in Archivfeld übergeben

[Dennis Balzuweit]

Zum Beispiel für die Verwendung mit officeCapture.

Code: Alles auswählen

// ==================================================================================
// Info..............: Dateinamenliste in Archivfeld übergeben
// ----------------------------------------------------------------------------------
// Author............: Dennis Balzuweit
// Company...........: CTO Balzuweit GmbH
// ----------------------------------------------------------------------------------
// Creation..........: 08.11.2011
// Changed...........: 08.11.2011
// ----------------------------------------------------------------------------------
// 08.11.2011 - 1.0  : Creation
// ==================================================================================

Function GetBlobNameList : String;
begin
  Result := '';
  List   := TStringList.Create;
  try
    for i:=0 to ccDocument.BlobCount-1 do
    begin
      BlobName  := ccDocument.GetBlobName(i);
      Extension := lowercase(ExtractFileExt(ccDocument.GetFileName(i)));
      if pos(Extension,lowercase(BlobName)) <= 0
        then BlobName := BlobName + Extension;
      List.Add(BlobName);
    end;

    List.Sort;
    Result := trim(List.Text);
  finally
    List.Free;
  end;
end;

// ----------------------------------------------------------------------------------

begin
  ccDocument.SetFieldValue('Dateinamen',GetBlobNameList);
  ccDocument.AllowProcessing := true;
end;

// ==================================================================================
// eof