Hallo,
ich habe über TWPMmDataProvider ein DataSet mit einem BlobField verbunden. Darin ist im besten Fall eine Bitmap mit einer Unterschrift.
Wenn das Feld keine Grafik enthält (IsNull), so erhalte ich eine AV in:
WPdbRich.Pas im Modul TWPMMDataProvider.DoMergeGetText.
Ich habe jetzt erst mal den Code für mich angepasst und einen Test auf IsNull eingebaut:
Code
procedure TWPMMDataProvider.DoMergeGetText(Sender: TObject;
...
end else if (field is TGraphicField) or isBMP then
begin
Done := TRUE;
if field.isnull then // sonst AV
Contents.StringValue := ''
else
begin
...
TWPOImage(obj).HeightTW :=
MulDiv(TWPOImage(obj).Graphic.Height, 1440, 96); // hier kommt AV, da TWPOImage(obj).Graphic dann nil ist
...
end;
...
Alles anzeigen
Ist das so richtig?