Gefunden. Hoffentlich. Jedenfalls ist der Fehler die letzten 90 Minuten auf mehreren Rechnern nicht mehr aufgetaucht.
Um eine Bitmap umzuwandeln in Base64 verwenden wir IdEncoderMIME (
Indy). Schön. Allerdings fehlte in der Funktion eine Kleinigkeit.
ALT:
Delphi-Quellcode:
function CreateBase64String(FileName: String): String;
var
FS: TFileStream;
begin
FS := TFileStream.Create(FileName, fmOpenRead);
try
Result := TIdEncoderMIME.EncodeStream(FS);
finally
end;
end;
NEU:
Delphi-Quellcode:
function CreateBase64String(FileName: String): String;
var
FS: TFileStream;
begin
FS := TFileStream.Create(FileName, fmOpenRead);
try
Result := TIdEncoderMIME.EncodeStream(FS);
finally
FS.Free;
end;
end;
Gesehen? Da habe ich auch mehrfach drüber weggelesen.
Na, vielen Dank für die Hinweise, ich hoffe das war es. Wenn nicht.....
creehawk