AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi TidTCP records senden/empfangen
Thema durchsuchen
Ansicht
Themen-Optionen

TidTCP records senden/empfangen

Ein Thema von XXcD · begonnen am 21. Jul 2009 · letzter Beitrag vom 6. Aug 2009
Antwort Antwort
Benutzerbild von XXcD
XXcD

Registriert seit: 19. Sep 2006
581 Beiträge
 
Delphi 2007 Professional
 
#1

Re: TidTCP records senden/empfangen

  Alt 6. Aug 2009, 10:43
Ok leider bekomme ich beim auslesen immer den Fehler Zugriffsverletzung.

Delphi-Quellcode:
  type
  TProfile = class(TObject)
  id: String;
  name: Ansistring;
  image: TMemorystream;
  procedure LoadFromStream(AStream: TStream);
  procedure SaveToStream(AStream: TStream);
  end;

...

procedure TProfile.SaveToStream(AStream: TStream);
var
  iLen: Integer;
begin
  {String ID}
  iLen := Length(ID);
  AStream.Write(iLen, SizeOf(iLen));
  AStream.Write(PChar(ID)^, iLen);
  {String Name}
  iLen := Length(Name);
  AStream.Write(iLen, SizeOf(iLen));
  AStream.Write(PChar(Name)^, iLen);


  {memorystream image}
  iLen := Image.Size;
  AStream.Write(iLen, SizeOf(iLen));
  Image.Position := 0;
  AStream.CopyFrom(Image, iLen)
end;

procedure TProfile.LoadFromStream(AStream: TStream);
var
  iLen: Integer;
begin
  {String ID}
  AStream.Read(iLen, SizeOf(iLen));
  SetLength(ID, iLen);
  AStream.Read(PChar(ID)^, iLen);
  {String Name}
  AStream.Read(iLen, SizeOf(iLen));
  SetLength(Name, iLen);
  AStream.Read(PChar(Name)^, iLen);

  {memorystream image}
  AStream.Read(iLen, SizeOf(iLen));
  Image.Clear;
  Image.CopyFrom(AStream, iLen);
end;
Zum schreiben das sieht so aus:
Delphi-Quellcode:
        Profile:= TProfile.Create;
        Profile.id:='2';
        Profile.name:='huhu';
        Profile.image:= TMemorystream.Create;
        Profile.image.LoadFromFile(ExtractFilePath(ParamStr(0))+'Images/test.png');

        Stream:= TMemoryStream.Create;
        Profile.SaveToStream(Stream);
Und an anderer Stelle lese ich das so wieder aus:
Delphi-Quellcode:
        Profile1:= TProfile.Create;
        Stream.Position:=0;
        Profile1.LoadFromStream(stream);
        WriteLn(Profile1.id);
        WriteLn(Profile1.name);
        Profile1.image:= TMemorystream.Create;
        Profile1.image.SaveToFile('C:\test.png');
Oder kann ich vielleicht direkt den Typ image in den Stream laden, aber da weiß ich nicht welchen typ ich nehmen kann.
  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 16:52 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