Hallo MJustin
ja, klar ist BMP nicht gerade das geeignete Format. Leider kann ich aber den Kunden nicht vorschreiben, welches Format er wirklich verwenden will und deshalb mache die Tests mit BMP. Wenn's damit geht, müsste es auch mit allen anderen Formaten wie GIF, JPG oder PNG auch gehen. Normalerweise wird so oder so die in GaHHiB definierte Datei verwendet (das Feld wird weiter oben geladen) und 'GALARM.BMP' kommt nur zum Zug, wenn der Kunde was verbockt hat.
Nur hilft mir Dein Kommentar nicht weiter. Die Funktion lauft auf einen Fehler, egal was die Datei für eine Extension hat, die da in MemStream geladen wird. Übrigens weiter unten mache ich dasselbe mit einer WAV-Datei,
Delphi-Quellcode:
if FileExists(HiS) and (GetFileSize(HIS) > 61440) then
doo := HIS
else
if FileExists(DBPfad + 'siren.wav') then
doo := DBPfad + 'siren.wav';
if doo <> '' then
begin
MemStream.LoadFromFile(doo);
MyBuffer := RawToBytes(MemStream.Memory, MemStream.Size);
EffMeld := ToBytes('#S#');
AppendBytes(EffMeld, MyBuffer);
GAlarmServer.Send(EffMeld);
end;
Das funktioniert problemlos!