AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TFileStream an DLL übergeben

Ein Thema von sko1 · begonnen am 25. Aug 2017 · letzter Beitrag vom 26. Aug 2017
Antwort Antwort
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#1

AW: TFileStream an DLL übergeben

  Alt 25. Aug 2017, 10:42
Du willst ja nicht die Stream-Instanz übergeben, sondern die Daten, die diese enthält. Ich würde einen TMemoryStream verwenden, der hat eine Memory-Eigenschaft, wo die Daten drinstehen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
sko1

Registriert seit: 27. Jan 2017
607 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#2

AW: TFileStream an DLL übergeben

  Alt 25. Aug 2017, 12:00
... und wie würde das aussehen?

Auch mit Übergabe eines array of byte bekomme ich Probleme!

Ciao
Stefan
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#3

AW: TFileStream an DLL übergeben

  Alt 25. Aug 2017, 12:14
Aus dem Hut würde ich sagen:
Delphi-Quellcode:
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    Stream.LoadFromFile(...);
    Stream.Position := 0;
    SetFileData(Stream.Memory{[0]}, Stream.Size);
  finally
    Stream.Free;
  end;
end;
Bie der 0 bin ich gerade selbst nicht sicher.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: TFileStream an DLL übergeben

  Alt 25. Aug 2017, 13:03
Bie der 0 bin ich gerade selbst nicht sicher.
Ne, ohne [0]. Memory ist schon nen Pointer.

Auch mit Übergabe eines array of byte bekomme ich Probleme!
SetFileData(PByte(DeineArrayVariable[0]), Length(DeineArrayVariable));
  Mit Zitat antworten Zitat
sko1

Registriert seit: 27. Jan 2017
607 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#5

AW: TFileStream an DLL übergeben

  Alt 25. Aug 2017, 15:14
Zitat:
Stream.Position := 0;
SetFileData(Stream.Memory, Stream.Size);
funktioniert hervorragend, danke!
Das Position kann man sich sparen, es wird ja nur der Anfang und die Länge übergeben, egal wo der Zeiger im Stream steht.

Ciao
Stefan
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#6

AW: TFileStream an DLL übergeben

  Alt 25. Aug 2017, 15:40
Die Macht der Gewohnheit
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.553 Beiträge
 
Delphi 12 Athens
 
#7

AW: TFileStream an DLL übergeben

  Alt 25. Aug 2017, 19:11
Und nur weil es so im Titel steht.

Man reicht NIEMALS nie keine Delphi-Objekte über Modulgrenzen (DLL oder EXE) hinweg.


SharedMemory ginge eventuell noch, aber SharedRTTI/-TypeInfo gibt es eben nicht,
außer bei Verwendung von Packages (BPL).
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz