Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Cast Array[0..x] of Byte in TBytes (https://www.delphipraxis.net/161348-cast-array%5B0-x%5D-byte-tbytes.html)

himitsu 30. Jun 2011 12:38

AW: Cast Array[0..x] of Byte in TBytes
 
Zitat:

Zitat von Uwe Raabe (Beitrag 1109205)
Das gilt sicher für die Nutzdaten, ...

Genau aus diesem Grund wäre ein Cast möglich, aber nur andersrum.

Delphi-Quellcode:
TBytes
nach
Delphi-Quellcode:
Array[0..x] of Byte
läßt sich Casten, da die nötigen Daten des statischen arrays im dynamischen enthalten sind, solange das dynamische Array mindestens so groß ist, wie das Statische.
Aber in diesem Fall kommt man um ein Umkopieren nicht drumrum.

Deep-Sea 30. Jun 2011 13:03

AW: Cast Array[0..x] of Byte in TBytes
 
Der TIdIOHandler nimmt aber auch u.a. Streams an. Ich habe mir vor einiger Zeit schon eine kleine Klasse von TCustomMemoryStream abgeleitet, der ich im Konstruktor einen bereits bestehenden Puffer - wie z.B. ein statisches Array - und dessen Länge übergeben kann. So wandelt man irgendwelche Daten ohne umkopieren in einen Stream :stupid:
Ob es hier aber nicht vlt. einfacher und sinnvoller wäre, den aufrufenden Code an TBytes anzupassen, kann ich nicht beurteilen.

Thom 30. Jun 2011 13:14

AW: Cast Array[0..x] of Byte in TBytes
 
@Uwe Raabe:

Die Nutzdaten haben das selbe Layout: Einfach 1024 Bytes hintereinander. Die Verwaltungsinformationen (auf die Delphi intern zugreift) sind für diese Speicherbereiche unterschiedlich.
Und im konkteten Fall der Write-Methode sind nur die Nutzdaten relevant. Genau aus diesem Grund muß ja auch die Länge des Speicherbereichs mit übergeben werden. Und damit ist ein Typecast im Gegensatz zu Deiner Behauptung im konkreten Falle sehr wohl möglich.

Sorry - aber es wie im Kindergarten... :lol:
Jeder will hier auf Biegen oder Brechen Recht behalten. Ist irgendwie lächerlich und schade um die vergeudete Zeit.. :stupid:

Und wie überflüssig das Ganze ist, sieht man am Beitrag des Fragestellers: Es hat bei ihm (im speziellen Fall) funktioniert. Auch bei
Delphi-Quellcode:
ReportMemoryLeaksOnShutdown:=true;
treten (bei mir) keine Speicherfehler auf.

Aber die Theoretiker beharren auf ihrer Meinung... :stupid:


@Deep-Sea:

Interessante Idee! :thumb:

Deep-Sea 30. Jun 2011 13:33

AW: Cast Array[0..x] of Byte in TBytes
 
Auch wenn ich mich ungern in die Schussbahn einer so hitzigen Diskussion begebe, wollte ich es trotzdem los werden:
Zitat:

Zitat von Thom (Beitrag 1109226)
Es hat bei ihm (im speziellen Fall) funktioniert.

Die zweite Zeile in
Delphi-Quellcode:
AContext.Connection.IOHandler.Write
sieht so aus:
Delphi-Quellcode:
LLength := IndyLength(ABuffer, ALength, AOffset);
.
Und die zweite Zeile der Funktion IndyLength enthält wiederum das:
Delphi-Quellcode:
LAvailable := IndyMax(Length(ABuffer)-AIndex, 0);
Hier wird also auf die Länge des dyn. Arrays mittels Length zugegriffen. Das das gut geht ist reine Glückssache ...
Dein Code funktioniert also, sofern man die Funktion selbst geschrieben hat und auf Length verzichtet. Allgemein ist es aber leider eine tickende Zeitbombe ...

himitsu 30. Jun 2011 13:43

AW: Cast Array[0..x] of Byte in TBytes
 
PS: Ist denn unbedingt ein statisches Array notwendig?

Einfach TBytes nehmen und am Anfang ein
Delphi-Quellcode:
SetLength(a, 1000);
und schon kann man das Array direkt übergeben.

Wenn irgendwo, in deinem Code, sowas wie @a vorkommt, dann dieses durch @a[0] ersetzen und das Selbe auch noch bei Var-Parametern.


Zitat:

Länge des Speicherbereichs
Man gibt nicht die Länge des Speicherbereichs, sondern den Abschnitt in dem Array an, welchen man versenden will und dieses wird dann nochmal von Indy geprüft, wobei es natürlich auf die originalen Daten zugreift.

Deep-Sea 30. Jun 2011 13:46

AW: Cast Array[0..x] of Byte in TBytes
 
Zitat:

Zitat von himitsu (Beitrag 1109235)
[...] dann dieses durch @a[0] ersetzen [...]

Oder besser gleich immer
Delphi-Quellcode:
@a[Low(a)]
schreiben, dann passt es immer, auch für statische Arrays die nicht mit 0 beginnen :stupid:

Thom 30. Jun 2011 14:38

AW: Cast Array[0..x] of Byte in TBytes
 
Zitat:

Zitat von Deep-Sea (Beitrag 1109233)
Hier wird also auf die Länge des dyn. Arrays mittels Length zugegriffen. Das das gut geht ist reine Glückssache ...
Dein Code funktioniert also, sofern man die Funktion selbst geschrieben hat und auf Length verzichtet. Allgemein ist es aber leider eine tickende Zeitbombe ...

Das akzeptiere ich ohne Widerspruch! :lol:
Deshalb ja auch meine Bemerkung
Zitat:

Zitat von Thom (Beitrag 1109079)
Ein Typecast ist sehr wohl möglich. Ob er auch sinnvoll ist, steht auf einem ganz anderen Blatt... :wink:


Satty67 30. Jun 2011 14:39

AW: Cast Array[0..x] of Byte in TBytes
 
Zitat:

Zitat von Thom (Beitrag 1109171)
Es ist also von Dir absolut überflüssig, in einer derart belehrenden Art und Weise zu schreiben und andere für dumm zu halten.

Ich sehe in meinem Post nur einen sachlichen Hinweis. Was Du alles da rein interpretierst ist mir schleierhaft.

Thom 30. Jun 2011 14:55

AW: Cast Array[0..x] of Byte in TBytes
 
Ich weiß nicht, wie alt Du bist und ob Du viel mit andere Menschen zu tun hat (Kinder, Schüler, Praktikanten, Angestellte,...).
Ist aber eigentlich auch egal: Aus meiner Sicht ist oftmals der Ton wichtiger als der Inhalt. Und genau dieser Umgangston läßt in vielen Foren arg zu wünschen übrig...
Aber das ist Offtopic: Wenn Du Interesse hat, können wir das auch gern per PM besprechen.

p80286 30. Jun 2011 15:02

AW: Cast Array[0..x] of Byte in TBytes
 
Hallo....

nu kommt doch bitte auf den Boden zurück. Können wir uns darauf einigen, daß Typecasting ein ganz heißes Eisen ist, und daß man damit sehr zurückhaltend und vorsichtig umgehen sollte?
(und Pointer gehören in die gleiche Kathegorie?)

Gruß
K-H


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:38 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz