Indy CopyTIdBytes

[hesch21]

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!