Hallo, ich habe heute (eigentlich schon länger, aber mir ist der Zusammenhang mit (Objekten) der Klasse
Tmemorystream
erst heute aufgefallen) folgendes Problem:
Ich versuche mithilfe einer - bisher problemlos laufenden - Factory eine bestimmte generische Klasse "Tmyclass<tmemorystream>", ggf "Tmyclass<tstream>" zu erstellen. Die Variante mit "<tmemorystream>" wurde vorher ordnungsgemäß (innerhalb meiner tfactory) registriert, und wird gefunden.
Also, zum problem:
Der ablauf ist bisher folgender:
try
- erstellung tmemorystream
- befüllen obj:tmemstream..
- Versuch erstellung Tmyclass, die dann was mit obj machen sollte. //XXX
{..}
finally
- freeall..
end
An der Stelle /XXX knallt es jetzt jedes Mal bei der Erstellung des Objektes (Es sei hier angemerkt dass der Fehler sowohl als Tmyclass.create, als auch per Tfactory.makenewobject(tmyclass)auftritt). Im Speziellen bekomme ich eine EAccesviolation (read of address ...).
Heute habe ich dann - endlich - das Problem auf die Erstellng / Befüllung des memory-streams zurückführen können.
Alles, was danach kommt löst direkt eine EAccessviolation aus.
ZUM EIGENTLICHEN PROBLEMBEREICH
Eigentlich will ich doch nur (nachvollziehbare) in den stream sschreiben. Aber anscheinend schreibt der dabei an Stellen, wo er nicht dürfte:
Delphi-Quellcode:
Str := Tmemorystream.Create;
// Str, Comp, Todecomp: Tmemorystream;
For J := 0
To 2
Do
For I
In ['
A' .. '
C']
Do
Str.WriteBuffer(I, Charsize);
For K
In ['
D' .. '
F']
Do
Str.WriteBuffer(K, Charsize);
For I
In ['
A' .. '
C']
Do
Str.WriteBuffer(I, Charsize);
For I
In ['
A' .. '
E']
Do
Str.WriteBuffer(I, Charsize);
// For Var I: Char In ['A' .. 'C'] Do
// Str.Writebuffer(I, Charsize);
Str.Position := 0;
Index := 0;
While Str.Position <> Str.Size
Do
Begin
Str.ReadBuffer(
Cc, Charsize);
Oughtstreamcontent[
Index] :=
Cc;
// Oughtstreamcontent: Array [0 .. 14] Of Char;
Inc(
Index);
End;
Alle Variablen sind lokal definiert.
Bitte um Hlfe, was ist hier der Fall?
//ES LIEGT MMN DEFINITIV AN DER BEFÜLLUNG DES ARRAYS
Oughtstreamcontent[Index] := Cc;
Danke