Ich brauch wieder mal Hilfe !!
ich habe in meinem Programm folgendende ziemlich einfache Funktion:
Delphi-Quellcode:
procedure TAServer1.TGAlarmTimer(Sender: TObject);
var hiBau : string;
var HiS : string;
var FT : boolean;
var HPfad : string;
var BauTab : array [1..50] of string;
var x : integer;
var y : integer;
var GAMeld : string;
var HiHeight : integer;
var An : string;
var MemStream : TMemoryStream;
var MyBuffer : TIdBytes;
var doo : string;
begin
.
.
.
doo := '';
if FileExists(GaHiB) then
doo := GaHiB
else
if FileExists(DBPfad + 'GALARM.BMP') then
doo := DBPfad + 'GALARM.BMP';
if doo <> '' then
begin
MemStream.LoadFromFile(doo);
ReadTIdBytesFromStream(MemStream, MyBuffer, MemStream.Size);
x := round(int(length(MyBuffer) / 60000));
for y := 0 to x do
begin
EffMeld := ToBytes('#B' + IntToStr(y + 1) + '#');
CopyTidBytes(MyBuffer, y * 60000, EffMeld, 4, 60000);
GAlarmServer.Send(EffMeld);
end;
end;
Sinn der Geschichte ist es, über eine
Indy-Broadcast-Server (GAlarmServer) ein Bild zu verschicken. Da aber nur Pakete von max. ca. 64 KB möglich sind, versuche ich, die Bilddatei in Pakete von 60000 Bytes zu splitten und so zu versenden.
Jetzt bekomme ich aber immer eine Fehlermeldung auf dem CopyTiDBytes. ERangeError, Fehler bei der Bereichsprüfung. Und zwar bereits beim ersten Durchlauf durch die for-Schlaufe wo die Startposition im MyBuffer noch 0 (y = 0 * 60000 = 0) ist. x ist übrigens beim Test 10, also MyBuffer über 600'000.
Und noch rasch weshalb ein Versand über einen Broadcast: Das Bild muss möglichst schnell an unter Umständen über 1'000 Clients gesandt werden. Aber wenn da jemand eine bessere Idee hat ...