Array of Bytes dynamisch erstellen

[Gandimann]

Hallo Friends,
besteht die Möglichkeit, dass ich:

myBytes: Array[0..byteCount -1] of Byte; dynamisch umwandeln kann ungefähr so myBytes: Array[x..y] of Byte; (wo x und y als Integer Variable werden ?


Bis jetzt habe ich wie folgt benutzt:

selectedFile := lblFilePath.Caption ;

fileStream := TFile.Open(selectedFile, TFileMode.fmOpen);

try
if fileStream.Seek(startByte, TSeekOrigin.soBeginning) < startByte then
raise Exception.Create('file is too small');

if fileStream.Read(myBytes, byteCount) < byteCount then
raise Exception.Create('file is too small');

myString := TEncoding.ANSI .GetString(myBytes);
finally
fileStream.Destroy();
end;

Thanks and have a great Time :)

[himitsu]

Nein, da

Delphi-Quellcode:

Array[x..y] of irgendwas

ein statisches Array ist, welches bereits der Compiler so lang macht, bevor dein Programm überjaupt läuft.
x und y können dürfen nur Konstanten sein.

Aber bei einem dynamischen Array ala

Delphi-Quellcode:

array of irgendwas
TArray<irgendwas>  // die Variante von "array of irgendwas" mit Generics (seit Delphi2009)
TBytes  // was ein "eigener" Typ ähnlich "array of Byte" ist
...

da kann man zur Laufzeit mit SetLength arbeiten.

Dynamische Arrays fangen aber immer bei 0 an.

Es bliebe noch das viariante Array, also Typ Variant in dem ein Array reingepackt wird,
oder eine Klasse mit Array-Property, wo du selbst den Index des Property z.B. auf den Index einer dynamischen Array-Variable abbildest.

Zitat:

TEncoding.ASCII.GetString(myBytes); -----> myBytes muss ich durch variabeln anpassen können.

Hättest du mal nachgesehn, was GetString für einen Parameter haben möchte, und schon hättest du auch gewusst, welchen Typen deine Variable myBytes benötigt. :zwinker:

[Gandimann]

Danke für die Hilfe :
meinst du so :

var
v: array of byte;
i,j:integer;
begin
j := 1000;
setlength(v, j);
for i:=40 to j do
begin
myString := TEncoding.ANSI .GetString(v);
end;

end;

Leider funktioniert nicht........

Need Help.... please !!!!!!!!!!!

[Klaus01]

Delphi-Quellcode:

for i:=40 to j- 1 do
begin
myString := TEncoding.ANSI .GetString(v);
end;

dynamische Array beginnen bei 0
Enden dann bei Anzahl der Elemente -1

Grüße
Klaus

[Andreas13]

Wenn Du Dir die Schreibweise

Delphi-Quellcode:

For i:= Low(IregendEinArrray) To High(IregendEinArrray) Do
Begin
… 
End;

angewöhnst, dann kannst Du nichts falsch machen. Low(..) und High(..) funktioniert sowohl bei dynamischen, wie auch bei statischen Arrays.
Gruß, Andreas

[Mavarik]

Zitat:

Zitat von Gandimann (Beitrag 1478270)

Delphi-Quellcode:

var
  v: array of byte;
  i,j:integer;
begin
  j := 1000;
  setlength(v, j);
  for i:=40 to j do
  begin
        myString := TEncoding.ANSI .GetString(v);
  end;

end;

Leider funktioniert nicht........

Need Help.... please !!!!!!!!!!!

Emm... :stupid:
Ein Buffer mit 1000 Bytes.. OK
und dann 960x ab dem 1. byte den gleichen String lesen?

Was versucht Du zu erreichen?

Mavarik :coder:

[Gandimann]

Hallo Mavarik,
ich möchte gern ein Binär Datei Blockweise ( z.B erster Block von 22ten Byte bis 200ten Byte und nächster Block zwichen 220 - 816ten Bytes usw..) splitten und in einen DB (Firebird) abspeichern und später je nach Bedarf die ausgewählte Blöcke wieder zusammen in eine Binär Datei schreiben. Die Start-und- Endbytes der Blöcke werden vorher aus Binär gerechnet
Alles habe ich bereits im Jahr 2001 in Visual Basic 6 und MDB Datenbank realisiert. Quellcode kann ich zur Verfügung stellen.

Delphi für mich relativ neu ist daher habe ich Probleme..... :-(

[Mavarik]

Zitat:

Zitat von Gandimann (Beitrag 1478323)

Hallo Mavarik,
ich möchte gern ein Binär Datei Blockweise ( z.B erster Block von 22ten Byte bis 200ten Byte und nächster Block zwichen 220 - 816ten Bytes usw..) splitten und in einen DB (Firebird) abspeichern und später je nach Bedarf die ausgewählte Blöcke wieder zusammen in eine Binär Datei schreiben. Die Start-und- Endbytes der Blöcke werden vorher aus Binär gerechnet
Alles habe ich bereits im Jahr 2001 in Visual Basic 6 und MDB Datenbank realisiert. Quellcode kann ich zur Verfügung stellen.

Delphi für mich relativ neu ist daher habe ich Probleme..... :-(

OK...

Also abgesehen davon, dass ich das in einem Blobfeld dann speichern würde... Ich gehe davon aus, dass es sich bei den Bin-Daten um Strings handelt?
Also Du hast also fixe Start-Positionen und fixe Längen vorberechnet?
Nach dem Motto... Start 22 Len 188 Start 220 Länge x...

Also sagen wir mal Du hat einen Record:

Delphi-Quellcode:

Type
 Parts = Record
           Start : Integer;
           Len   : Integer;
         end;

 PartsList : TArray<Parts>; // oder mit altem Delphi Array of Parts; 


var
  MS : TMemoryStream;
  S  : AnsiString;
  i  : Integer;
begin
  FillPartsList(PartsList);

  MS := TMemoryStream.Create;
  try
    MS.LoadFromFile('Bindaten.Dat');

    for i:=0 to high(PartsList) do
      begin
        Setlength(S,PartList[i].Len);
        MS.Position := PartsList[i].Start;
        Move(MS.Memory^,S[1],PartList[i].Len);
        WriteToFirebird(S);      
      end;

  finally
    MS.Free;
  end;
end.

So zum Beispiel...

Eine von unzähligen Möglichkeiten...

Mavarik :coder:

[Gandimann]

Das nenne ich Hife von feinsten.........

Mit FileStream Position bin auch weiter gekommen aber deine Lösung ist vieeeeel besser.

Danke Mavarik for your kind help