Forum: Netzwerke
by hesch21,
14. Jan 2013
Hab's selbst gefunden!
Der empfangende TIdBytes (EffMeld) muss vor dem CopyTidBytes mit SetLength auf die genaue Länge gesetzt werden. Die Routine sieht nun so aus, falls es jemand interessiert:
doo := '';
if FileExists(GaHiB) then
doo := GaHiB
else
if FileExists(DBPfad + 'GALARM.BMP') then
doo := DBPfad + 'GALARM.BMP';
if doo <> '' then
begin
Forum: Netzwerke
by hesch21,
14. Jan 2013
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...
Forum: Netzwerke
by hesch21,
14. Jan 2013
Ich brauch wieder mal Hilfe !!
ich habe in meinem Programm folgendende ziemlich einfache Funktion:
procedure TAServer1.TGAlarmTimer(Sender: TObject);
var hiBau : string;
var HiS : string;
var FT : boolean;
var HPfad : string;
var BauTab : array of string;
var x : integer;