AGB  ·  Datenschutz  ·  Impressum  







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

MemoryStream Bearbeitung optimieren

Ein Thema von alleinherrscher · begonnen am 18. Jun 2006 · letzter Beitrag vom 18. Jun 2006
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#1

MemoryStream Bearbeitung optimieren

  Alt 18. Jun 2006, 13:07
Hi Leute!

Ich bastle gerade an einem Programm, welches per Indy Memorystreams verschicken kann. Ich hab mir hierfür nen eigenen Datentyp (Record) gebastelt, der aus 2 Strings besteht (wo man z.B. Dateinamen einer Datei oder irgendwelche Informationen über den Stream etc. reinschreiben kann) und einem Memorystream, der die Daten selbst enthält.

Um diesen Datentyp zu verschicken, bastle ich mir n neuen Memorystream zum versenden, der am Anfang den Inhalt der Strings hat, und dann per copyfrom die daten des ursprünglichen Memorystreams aus dem Datentyp bekommt.

Da ich das programm auf mehrere einzelne Prozeduren aufgeteilt hab, in denen der Memorystream als parameter übergeben wird, wird die bearbeitung von datenmengen >20mb sehr lang-weilig also das dauert dann schonmal 30 sekunden oder so.




Jetzt meine Frage: kann man anstatt des Memorystreams auch den Pointer des Streams als Parameter übergeben, oder macht Delphi das automatisch? Ich hab nämlich so das gefühl, dass der Intern jedes mal den kompletten Stream kopiert, wenn man ihn als Parameter übergibt.


Danke und schöne grüße an alle!
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.195 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: MemoryStream Bearbeitung optimieren

  Alt 18. Jun 2006, 13:10
Wenn Du TMemoryStream oder eine ableitung davon verwendest wird bei einer übergabe in einer Funktion/Methode eh nur der Zeiger/Referenz übergeben. Das Problem muss also woanders liegen.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#3

Re: MemoryStream Bearbeitung optimieren

  Alt 18. Jun 2006, 13:20
Danke für die schnelle Antwort! Kann es dann an der Funktion TMemorystream.CopyFrom liegen? Sollte man große Memorystreams besser nicht kopieren?

Ich glaube ich füge besser mal etwas Code dazu:

Delphi-Quellcode:

//Es geht los mit:

stream2:=TMemorystream.Create;
stream2.LoadFromFile(edit1.text);


//Als nächstes wird mein Datentyp zusammengebaut:
function Packagebuilder(packagetype:TMEINPACKETTYP;stream2:TMemorystream;str:,additional:string):TMEINPACKET;

pack.packagetype:=packagetype;
pack.data:=stream2; //hier wird also der oben erzeugte stream2 in meinen Datentyp eingebaut
pack.additional:=additional;
pack.str:=str;
result:=pack;
end;


//Nun wollen wir den Datentyp per Indy verschicken und bauen dafür einen Stream der per Indy
//verschickt werden kann: (wir rufen also SendPackage mit dem Argument pack von oben auf)

procedure SendPackage(pack:TMEINPACKET;Host:String);

var stream : TMemoryStream; inttype,len:integer;
begin

stream := TMemorystream.Create;

//Schreibt Typ des Packages in den Stream:
inttype:=packagetypetoint(pack.packagetype);
stream.Write( inttype, SizeOf( inttype ) );

//Schreibt Inhalt der String Pointer in Filestream mit Längenangabe
len := Length( pack.str );
stream.Write(len, SizeOf(len) );
stream.Write( PChar(pack.str)^, len );

len := Length( pack.additional );
stream.Write(len, SizeOf(len) );
stream.Write( PChar(pack.additional)^, len );

//Schreibt Data Stream in den zu versendenden Stream
stream.Position:=stream.Size;
stream.CopyFrom(pack.data,0);

//Verschickt den Stream per Indy
sendstream(stream,Host);

end;
Kann mir jemand sagen was hier so zeitraubend ist?
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#4

Re: MemoryStream Bearbeitung optimieren

  Alt 18. Jun 2006, 14:37
Update: Ich habe gerade den bösewicht ausgemacht:

es ist in der tat das Copyfrom was so viel zeit in anspruch nimmt....

Habt ihr evtl n tip wies schneller gehen könnte?
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
Benutzerbild von KingIR
KingIR

Registriert seit: 19. Feb 2006
81 Beiträge
 
Delphi 2006 Professional
 
#5

Re: MemoryStream Bearbeitung optimieren

  Alt 18. Jun 2006, 15:06
Wenn du den ersten Stream (den den du aus der Datei geladen hast und von dem du dann mit CopyFrom() kopierst) nicht noch anderweitig brauchst, kannst du doch in den vorne dran einfach noch die Daten (Länge usw.) schreiben und ihn dann versenden.
Hab es nicht getestet, aber vielleicht geht es ja schneller
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#6

Re: MemoryStream Bearbeitung optimieren

  Alt 18. Jun 2006, 15:12
Hey, KingIR!

Die Idee ist klasse - Danke!
Das würde sogar den Speicheraufwand verringern! Blöde frage nur: Wie schreibe ich an den Anfang eines Streams *confused*
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
Benutzerbild von KingIR
KingIR

Registriert seit: 19. Feb 2006
81 Beiträge
 
Delphi 2006 Professional
 
#7

Re: MemoryStream Bearbeitung optimieren

  Alt 18. Jun 2006, 15:17
Ganz einfach,
Delphi-Quellcode:
Stream.Position := 0;
Stream.Write(...);
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#8

Re: MemoryStream Bearbeitung optimieren

  Alt 18. Jun 2006, 15:19
Überschreibt er dann nicht die alten Daten?

//edit: Und dann stellt sich hinterher auch noch die Frage: Wie lösche ich wieder Daten am anfang eines Streams
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
Benutzerbild von KingIR
KingIR

Registriert seit: 19. Feb 2006
81 Beiträge
 
Delphi 2006 Professional
 
#9

Re: MemoryStream Bearbeitung optimieren

  Alt 18. Jun 2006, 15:43
Mist, stimmt natürlich

Die einzige Alternative, die mir so nocht einfällt, wäre dann, anstelle des ersten Streams den Dateiname an die Funktion zu übergeben, die dann erstmal den Header (Größe usw.) in den Stream schreibt und dann mit BlockRead die Datei einliest und in den Stream schreibt. Weiß nicht ob du nur Daten aus Dateien lesen möchtest, aber falls ja, dann wäre das meine Lösung.
Delphi-Quellcode:
const
  BUFSIZE = 1024 * 100;
var
  Stream: TMemoryStream;
  f: file of byte;
  FileName: string;
  buf: array[0..BUFSIZE] of byte;
  BytesRead: Integer;
begin
  Stream := TMemoryStream.Create();

  //Stream.Write(...);

  FileName := '...';

  AssignFile(f, FileName);

  FileMode := fmOpenRead;
  Reset(f);

  Stream.SetSize(FileSize(f) + Stream.Position);

  while not Eof(f) do
  begin
    BlockRead(f, buf, BUFSIZE, BytesRead);
    Stream.Write(buf, BytesRead);
  end;

  CloseFile(f);
Da die Streamgröße vorher gesetzt und dadurch aller Speicher in einem Rutsch alloziert wird, ist das ganze auch relativ schnell.
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#10

Re: MemoryStream Bearbeitung optimieren

  Alt 18. Jun 2006, 16:12
Der Ansatz ist echt lieb von dir gemeint Aber da ich nicht immer Dateien verschicke, sondern irgendwelche Daten ist das nicht allgemein genug. Ich hatte mir überlegt, evtl die Strings am Ende des Streams zu speichern. Da ich aber nicht weiß, wie lang die Daten sind, ist es nicht so einfach, hinterher die position der Strings zu ermitteln.

Das einzige was meiner Meinung nach gehen würde, ist eine Art Maker in den Stream zu setzen, also eine Bestimmte zeichenfolge, anhand derer man erkennen kann, wo die Strings anfangen...aber das ist auch nicht die feine englische Art, denn man stelle sich vor, dass (aus welchem grund auch immer) diese Zeichenfolge zufällig schon vorder in den daten vorkommt. Dann bricht die ganze Struktur zusammen


//EDIT:

MOMENT ich hab noch ne bessere Idee:

Kann ich den String hinterher nicht praktisch "von Hinten lesen"?

D.h. ich speichere zunächst den String und erst nach dem String die Länge des Strings im Stream.
Dann kann ich doch "von Hinten" erst die Länge des Strings auslesen (weil das ja n integer ist und immer gleich lang), dann die entsprechende Länge nach vorn wandern und den String auslesen usw... versteht ihr was ich meine?

Könnte das klappen?
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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 11:47 Uhr.
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