Farbe einer Fläche in Abhängigkeit ob DBMemo leer oder gefüllt

[hentsch.norbert]

Hallo zusammen,

vielleicht kann mir jemand helfen bei meinem kleinen Problem.
Ich speichere PDF Daten in ein Access Tablefeld.

In Abhängigkeit ob das Feld gefüllt oder leer ist soll mir eine Farbe in der Anwendung zeigen, ob etwas im Feld gespeichert wurde.

Leider kann ich ein PDF in Delphi mit Bordmittel ja nicht zeigen, oder ?

Gerne hätte ich aber gewusst ob der Datensatzfeld Daten "PDF" enthält oder nicht.

Weiß jemand Rat?

Eine entpr. Komponente wie TDBColorPanel ware toll.

Grüße
Norbert

[himitsu]

A) Du kannst natürlich auch in einem anderen Feld speichern, was da für Daten drin sind. Beim Speichern des BLOBs weißt du doch wohl, was du da rein tusts.
Macht Windows ja auch nicht anders und "erkennt" anhand des "externen" Dateinamens, um was es sich handeln könnte.

B) Viele Datei-Typen haben gewisse Kennzeichen, in ihren Daten.
Sehr oft kann man dafür die ersten 4 Byte der Datei benutzen.
https://de.wikipedia.org/wiki/Portable_Document_Format siehe "magische Zahl", da man 4 Byte auch als einen Integer interpretieren könnte.


OnAfterScroll und dort drin die Farbe zuweisen?

[hentsch.norbert]

Hallo himitsu,

und danke für deine schnelle Antwort.

Ja ich will den PDF Binärtext nicht in einem Memo Feld dem Anwender anzeigen.
Eine Rote und Grüne Fläche würde reichen um zu zeigen das sich der Binärcode einer PDF sich im Memo befindet.

Erst dann kann er sich diese PDF ja zeigen lassen indem ich dazu eine externe Datei erzeuge und anzeige.

OnAfterScroll und dort drin die Farbe zuweisen?

Wie meinst du das bitte? muss das ein Datenbank Kontroll sein?

Grüße
Norbert

[nahpets]

Gehen wir mal davon aus, dass Du in der Anzeigemaske ein Label "lbPDF" hast.

Im Ereignis AfterScroll kannst Du nun abfragen, ob im Blob was drinne ist oder nicht:

Delphi-Quellcode:

if Abfrage.FieldByName('PDF').IsNull then lbPDF.Color := clRed else lbPDF.Color := clGreen.

(nur so hingedaddelt, nicht getestet)

[hentsch.norbert]

Super nahpets,

das hat geklappt.

Prima und vielen Dank für die super schnelle Hilfe.

Grüße
Norbert