Announcement

**Rudi Neuss** · 09.10.2001, 10:23

1. Der CharacterSet Fehler kann dadurch resultieren, dass du das
falsche characterset benutzt. Pruefe mal den Inhalt von deinen Daten
(Umlaute Sonderzeichen etc.)
Ich benutze meist das CharSet ISO8859_1, das auch umlaute kann.

2. Zu den BlobStreams
Ich hatte auch Schwierigkeiten mit den TIBBlobStreams und benutze
einen Memorystream.
Hier ein kleines Code-Beispiel mit dem ich ein Richedit in ein Blob
speichere.

procedure TDM1.TextBausteinEintragen;
var
astream: TMemoryStream;
begin
try
astream := TMemoryStream.Create;
FormNeuerTextBaustein.Editor.Lines.SaveToStream(as tream); //Editor ist eine Instanz von TRichEdit

if IBTransKarte.InTransaction then
IBTransKarte.Rollback;

IBTransKarte.StartTransaction;
try

IBQueryInsertTextBaustein.ParamByName('BEARBEITER' ).asString :=
dma.GetCurrentUserName;
IBQueryInsertTextBaustein.ParamByName('KUERZEL').a sString :=
FormNeuerTextBaustein.EditTextBezeichnung.Text;
IBQueryInsertTextBaustein.ParamByName('TEXT').Load FromStream(aStream,
ftBlob); // hier wird der BlobInhalt gespeichert

IBQueryInsertTextBaustein.ExecSQL;

IBTransKarte.Commit;
except
IBTransKarte.Rollback;
end; //try
finally
astream.Free;
end; //try

end; // Proc

//************************************************** *****//
// Die IBQueryInsertTextBaustein:
//
// insert into TEXTBAUSTEIN ( KUERZEL, BEARBEITER, TEXT)
// Values (:Kuerzel, :bearbeiter, :text)
//************************************************** *****/

**Walter R�der** · 11.10.2001, 06:28

Hallo Rudi Neuss,

zu 1: 
Mein STRING hat keine "normalen" Zeichen, er enth�lt einen Header der 6 Zeichen lang ist (#41600) und dann nur noch 32Bit Integer-Werte., d. h. es gibt kein passendes characterset.

zu 2: 
Ich habe versucht Dein Beispiel umzusetzen, habe aber immer noch nicht verstanden wie ich meinen STRING dem BLOBSTREAM zuweisen kann. Ich benutze ja kein RichText oder �hnliches. 
Hier mein Projektauszug:

Procedure xyz ..... 
var 
blobwert : TMermoryStream; 
tprec.messwert : string; //TPREC ist ein Record und Messwert ist ein STRING im Record 
begin 
.... //einige vorbereitungen 
blobwert := TMemoryStream.Create; 
blobwert:=tprec.messwert (hier ist mein Problem, wie geht das?) 
..... 

Vielen Dank und Gr��e Walte

**Jens Schumann** · 11.10.2001, 08:04

Moin Walter, vor einiger Zeit habe ich mir mal folgende Unit zur L�ung des Problem erstellt: 
<pre>
unit Streaming;

interface

uses Sysutils, Classes;

Type

TMemoryStreamExt = class(TMemoryStream)
public
procedure WriteStringToStream(aStr : String);
function ReadStringFromStream : String;
end;

TFileStreamExt = class(TFilestream)
public
procedure WriteStringToStream(aStr : String);
function ReadStringFromStream : String;
end;

implementation

{ TFileStreamExt }

procedure TFileStreamExt.WriteStringToStream(aStr : String);
var
aStrLen : Integer;
begin
aStrLen:=Length(aStr);
WriteBuffer(aStrLen,SizeOf(Integer));
WriteBuffer(Pointer(aStr)^,aStrLen);
end;

function TFileStreamExt.ReadStringFromStream: String;
var
aStrLen : Integer;
begin
ReadBuffer(aStrLen,SizeOf(Integer));
SetLength(Result,aStrLen);
ReadBuffer(Pointer(Result)^,aStrLen);
end;

{ TMemoryStreamExt }

function TMemoryStreamExt.ReadStringFromStream: String;
var
aStrLen : Integer;
begin
ReadBuffer(aStrLen,SizeOf(Integer)); // L�nge des Strings lesen
SetLength(Result,aStrLen); // aStrLen auf diese L�nge setzen
ReadBuffer(Pointer(Result)^,aStrLen); // String lesen
end;

procedure TMemoryStreamExt.WriteStringToStream(aStr: String);
var
aStrLen : Integer;
begin
aStrLen:=Length(aStr);
WriteBuffer(aStrLen,SizeOf(Integer)); //L�nge des Strings schreiben
WriteBuffer(Pointer(aStr)^,aStrLen); // String schreiben
end;

end.
</pre>
 Jens Schuman

**Walter R�der** · 11.10.2001, 09:40

Hallo,

erst mal Danke Jens f�r Deine schnelle Antwort!
Leider bin ich zu scheinbar bl�d das mit den Stream's zu verstehen, oder ist es wirklich so schwer? 
Hier beschreibe ich nochmal mein Problem: 
Ich lese Daten von einem Spektrumanalyser �ber die serielle Schnittstelle ein. Die eingelesenen Daten speichere ich in einem Record als String (TPREC.MESSWERT). Der Inhalt des STRING sieht folgendermassen aus: 
#41600....und es folgen unleserliche Zeichen (32 Bit INTEGER-Werte)

Diesen STRING will ich irgend wie in meine InterBase 6 Datenbank ein- und sp�ter auch wieder auslesen k�nnen, und den STRING wieder im obgen Format zur Verf�gung haben. Die Datenbank weigert sich aber diesen STRING als String zu �bernehmen (Fehlermeldung:falsches caracterset), was mir logisch ist, da die 32Bit-Werte nicht als Zeichen dargestellt werden k�nnen. Ich arbeite mit den IBX-Komponenten IBDataBase, IBTransaction und IBDataSet.

Die meisten Delphi-Hilfen und Forumbeitr�ge sind entweder auf Text-String's oder auf Grafiken ausgelgt. Auch die Handb�cher und die B�cher von Herrn Kosch behandeln das Thema BLOB's kaum.

Vieleicht kann mir jemand einen Weg vorschlagen oder ein Beispiel f�r diese "Transaktionen" zur Verf�gung stellen.

Vielen Dank Walte

**Andreas Kosch** · 11.10.2001, 12:51

Hallo,

in meinem Buch InterBase Datenbankentwicklung mit Delphi ist auf der Seite 365 ein Beispiel zu finden, wie eine als Objekt verpackte Record-Instanz in einer BLOb-Spalte des InterBase gespeichert und wieder ausgelesen wird. Anstelle die Messwerte (Zahlen) in einen String zu quetschen, w�rde ich die 32-Bit-Interwerte doch gleich als Objektinstanz speichern:
<pre>
BS := IBDataSet1.CreateBlobStream(IBDataSet1DATA, bmWrite);
try
BS.WriteComponent(SR);
IBDataSet1.Post;
finally
BS.Destroy;
end;
</pre>
�ber WriteComponent schiebt man die Aufgabe des �bersetzens der Objektinstanz in die BLOb-Daten auf Delphi ab, zumal mit ReadComponent auch der automatische R�ckweg angeboten wird.

P.S: Beim Thema BLObs werden Grafiken gerne in den Beispielen verwendet, weil man sofort eine visuelle R�ckmeldung �ber Erfolg/Misserfolg erh�lt :-

**Walter R�der** · 12.10.2001, 07:05

Hallo,

ich habe noch weitere Fragen:

1. Wie wandle ich meinen String "manu.tprec.messwert" in ein Streamobjekt um (und auch wieder zur�ck), das konnte ich weder aus dem Buch, noch aus den hier aufgezeigten Beispielen erkennen. Bei meiner Codezeile "blobwert.WriteComponent(manu.tprec.messwert); " will der Compiler ein Object und keinen String sehen.

2. Wenn ich das Beispiel aus dem Buch versuche umzusetzen bekomme ich
bereits bei der Zeile "blobwert:=dbmod.ibds_sm_save.CreateBlobStream(dbm od.ibds_sm_saveMESSWERT, bmWrite);" die Fehlermeldung "Undefinierter Bezeichner bmWrite" 
Hier folgt meine Procedure:

procedure Tfrm_save.bbt_msaveClick(Sender: TObject); 
var swert, fname : string; i : integer; blobwert : TStream; 
begin 
if MessageDlg('M�chten Sie die Messung wirklich speichern ?' 
, mtConfirmation, [mbYes, mbNo], 0) = mrYes then 
begin 
repeat 
swert:= InputBox('Messung Speichern', 
'Eine Beschreibung eingeben.Max.40 Zeichen',''); 
until length(swert)<=40; 
swert:=swert+' '+DateToStr(Date)+','+TimeToStr(Time); 
dbmod.ibdb_savemess.Open; 
dbmod.ibt_savemess.StartTransaction; 
dbmod.ibds_sm_save.Active:=true; 
dbmod.ibds_sm_save.Append; 
dbmod.ibds_sm_saveNAME.Value:=swert; 
dbmod.ibds_sm_saveCF.Value:=manu.tprec.cf/1000000; 
........ 
dbmod.ibds_sm_saveDATERF.Value:=manu.daterf; 
dbmod.ibds_sm_saveBEM.Value:=manu.bem; 
 blobwert:=dbmod.ibds_sm_save.CreateBlobStream(dbmo d.ibds_sm_saveMESSWERT, bmWrite); 
blobwert.WriteComponent(manu.tprec.messwert); 
dbmod.ibds_sm_save.Post; 
dbmod.ibds_sm_save.Active:=false; 
dbmod.ibt_savemess.Commit; 
dbmod.ibdb_savemess.Close; 
end; 
end; 

Vielen Dank f�r die von Euch bereits geleistete Hilfe!

Viele Gr��e Walte

**Andreas Kosch** · 12.10.2001, 07:26

Hallo,

Ihr Fehler besteht darin, als Zahlen vorliegende Messwerte in einen String abzulegen (wo diese �berhaupt nicht hingeh�ren). Warum m�ssen diese Nicht-String-Daten unbedingt in einem String abgelegt werden? Sie schreiben in Ihrer Frage "Dieser STRING enth�lt einen Kopf und Daten in INT32 form" - also handelt es sich um einen Record (besteht als mehrere Feldern) und nicht um einen String. Und in meinem Buch speichere ich im o.g. Beispielprojekt auch einen Record, der als Objekt verpackt wird.

Wie sieht der Inhalt Ihres "Strings" in einem Beispiel aus, wenn das Veto CharacterSet-Fehler kommt. Was zeigt ein MessageBox-Aufruf als Text an

**Walter R�der** · 12.10.2001, 09:52

Hallo Herr Kosch,

Die Daten im String werden folgenderma�en eingelesen: 

Die Komponente ist CPort(Lib), meine Form "MANU". 
com_1.WriteStr(':trac:data? TRACE1'+chr(10));// Sagt dem Analyser das er die Grafikdaten liefern soll 
repeat // mit dieser Schleife pr�fe ich ob alle Daten anliegen 
rdcount:=com_1.InputCount; 
edit1.Text:=inttostr(rdcount); 
application.ProcessMessages; 
until rdcount>=1611; 
com_1.ReadStr(rdwert,rdcount); //hier werden die Daten �ber Com1 eingelesen "RDWERT" ist ein String "RDCOUNT" ist Integer, ist von CPort so vorgegeben! 
tprec.messwert:=rdwert; //ab hier wandle ich die Stringdaten in Messwerte um 
i:=1; 
j:=1; 
k:=0; 
while i <= 1604 do //401 Messwerte a 4 Byte = 1604 
begin 
if j<=4 then // 4 Byte abfragen 
begin 
cwert:=rdwert[i+6]; // den Header auslassen 
case j of // Messwert errechnen 
1 : lwert:=ord(cwert)*16777216; 
2 : lwert:=lwert+(ord(cwert)*65536); 
3 : lwert:=lwert+(ord(cwert)*256); 
4 : lwert:=lwert+ord(cwert); 
end; 
inc(j); 
end; 
if j=5 then 
begin 
k:=k+1; 
tprec.trace[k]:=lwert/1000; // den Messwert ins Array eintragen 
j:=1; 
end; 

Im hier folgenden Aufruf sehe ich als Text meinen String wie weiter unten dargestellt. 
if MessageDlg(rdwert, mtConfirmation, [mbYes, mbNo], 0) = mrYes then 
begin 
; 
end; 

Jetzt kommt der String, der so von der seriellen Schnittstelle eingelesen wird (d�rfte Ihnen vieleicht bekannt vorkommen war mal eine Frage im Forum von mir):

rdwert: '#41604��'#$1E'��Ɩ��F��e��5��p�� )��^��V��'#$1A'��&��b��!��'#8' ��ʖ��'#5'��·��Ҧ��Ѿ��o��̆��l��(��n��"�� '#$B'��Ś��Ȟ��'#$16'��/��'#8'��ϧ��1��Ҕ��-��˝��ҟ��7��L��2��ί��-��9��3��"��w��L��2��Ρ��'#8'�� '#$19'��ģ��ɻ��D��_��'#$10'��>�� #��'#$1B'��'#$D'��ʜ��ϋ��c��̞��z��̈ ��|��l��h��b��=��V��'#$1A'� ��T��K��'#1'��D��'#5'��m��}� ��t��{��E��'#$D'��ƻ��Ɯ��*�� *��ƈ��'#4'��˚��'#$17'��̆��<��'#2'�� П��o��'#$1B'��A��.��'#3'��ل��k ��'#$1F'��͑��ʐ��_��u��ϗ��P� ��|��'#$B'��Σ��λ��Ŏ��,��'#$1 4'��a��'#1'��ǈ��'#7'��'#2'��R�� _��́��͓��m��ϩ��u��Н��˹��w� �å��\��ͺ��J��K��t��Ȁ��[��L��'#$1F'��|��̦��2��X��l�� X��;��Q��o��'#8'��f��x��ѷ��'��ɉ��I ��5��'#$15'��!��s��'#$D'��'#5'�� ʻ��W��ɐ��X��˟��6��{��a��a��b�� +��'#$13'��'#$15'��[��Ր��v��#��f��ҥ��:��!��O�� u��A��Ь��ˍ��=��(��M��ʋ ��X��K��ά��"��J��'#6'��N�� )��D��=��,��N��ˊ��'#$1B'��`��Ǽ ��ɘ��'#$12'��|��h��ɲ��^��.� ��e��E��'#$18'��>��'#$E'��B��Ĉ��ӻ��Z�� b��'#$15'��j��X��̜��_��Δ�� '#$12'��~��|��^��N��Ӟ��m��4��'#8'� ��(��\��'#3'��ɼ ��Ջ��W��y��/��ŋ��e��U��'#4'��]��e��'#0'��ɗ��E��̇��9�� ϼ��K��\��'#$E'��y��*��R��W��Z� �ɵ��̥��ǡ��,��m��`��'#4' ��+��.��'#$17'��җ'#$A'

String Erl�uterung: 
# // beginn des Header 
41604 //4 = Teiler 1604 = anzahl der folgenden Bytes (INT32 = 4 Byte) also 1604:4=401 Messwerte 
Rest = Bytes

Danke und Gr��e Walte

**Jens Schumann** · 12.10.2001, 10:07

Hallo Walter, Herr Kosch meint, das Du den String, der ja scheinbar in einem Record gespeichert wird anstatt in diesen Record in ein Object speicherst. Daf�r mu�t Du Dir nein Object deklarieren !!!
Dieses Objekt mu� von TComponent abstammen. Dann kann �ber WriteComponent auf das delphiinterne Streaming zur�ckgriffen werden, und Du mu�t Dich um die Speicherung nicht k�mmern. Beispiel: 
<pre>
unit Unit2;

interface

uses SysUtils, Classes;

Type
// !!! Dies ist der Recordersatz !!!
TMesswerte = class(TComponent)
private
FWert1: Integer;
FWert3: Integer;
FWert2: Integer;
public
procedure Assign(Source : TPersitent); override;
published // Wichtig: die Werte m�ssen published sein, wenn nicht, werden sie nicht vom Streaming erfasst !!!
property Wert1 : Integer read FWert1 write FWert1;
property Wert2 : Integer read FWert2 write FWert2;
property Wert3 : Integer read FWert3 write FWert3;
end;
implementation

{ TMesswerte }

procedure TMesswerte.Assign(Source: TPersitent);
begin
If Source is TMesswerte then
begin
FWert1:=TMesswerte(Source).Wert1;
FWert2:=TMesswerte(Source).Wert2;
FWert3:=TMesswerte(Source).Wert3;
end
else
inherited Assign(Source);
end;

//Speichern des Objektes
var
Messwerte : TMesswerte;
...
Messwerte:=TMesswerte.Create(Nil);
Try
With Messwerte do
begin
Wert1:=Messwert1; // Messwert1 bis 3 ist das, was Du vom Messger�t erh�lst
Wert2:=Messwert2;
Wert3:=Messwert2;
end;
// Jetzt die Schose in den Blobstream
...
blobwert:=dbmod.ibds_sm_save.CreateBlobStream(dbmo d.ibds_sm_saveMESSWERT, bmWrite);
blobwert.WriteComponent(Messwerte);
...
Finally
Messwerte.Free;
end;
...

//Lesen des Objektes
var
Messwerte : TMesswerte;
...
Messwerte:=TMesswerte.Create(Nil);
Try
// Jetzt die Schose iaus dem Blobstream
...
blobwert:=dbmod.ibds_sm_save.CreateBlobStream(dbmo d.ibds_sm_saveMESSWERT, bmRead);
blobwert.ReadComponent(Messwerte);
...
Finally
Messwerte.Free;
end;
...
</pre>
 So ungef�hr sollte es klappen Jens Schuman

**Andreas Kosch** · 12.10.2001, 12:52

Hallo,

wie der Inhalt von rdwert zeigt, handelt es sich nicht um einen String, sondern um bin�re Daten, die u.a. in einer Stringvariablen untergebracht werden k�nnen. Ein AnsiString ist f�r Delphi nur ein 32-Bit-Zeiger auf einen Speicherbereich, in dem man alles M�gliche ablegen kann. So freiz�gig ist der InterBase jedoch nicht, dort wird schon bei BLOb-Daten ein Unterschied gemacht.

Es gibt also 2 M�glichkeiten: 
1. Daten nicht als String, sondern als bin�re BLOb-Daten speichern (wie bei einer Grafik) 
2. Record als Komponente verpacken und �ber WriteComponent/ReadComponent konvertiere

**Walter R�der** · 15.10.2001, 06:21

Hallo,

Erst mal Danke, ich glaube es endlich umsetzten zu k�nnen!

Ich melde mich wieder wenn ich es ausprobiert habe.

Gru� Walte

**Walter R�der** · 15.10.2001, 07:55

Hallo Jens Schumann,

eine Frage:
Bei deiner Unit2 verwendest Du einzelne Integer-Felder f�r die Messwerte, geht das auch mit einem ARRAY of INTEGER, ich habe 401 Messwerte zu speichern, und wie muss ich dann den PUBLISHED- und den IMPLEMENTATION-Teil ab�ndern. Der Rest w�re klar.

Danke und viele Gr��e Walte

**Jens Schumann** · 15.10.2001, 09:13

Hallo Walter, anstatt des Array's k�nntest Du die Messwerte in einer Kombination aus TCollection und TCollectionItem speichern. Dazu findest Du hier im Forum einige Beispiele. Ich denke aber, das der Verwaltungs-Overhead in bezug auf den zu speichernden Wert ziemlich gro� ist. Deshalb schalge ich vor die Integer Werte direkt in den BlobStream zu schreiben. Siehe Vorschlag 1 von Herrn Kosch. Da Integers im Vergleich zu Strings eine konstante Gr��e haben, ist das auch nicht weiter schwierig. Der Source hier zeigt, wie man Integers in einen Stream schreibt und lie�t. Beim lesen werden die Streamdaten in eine dyn Array geschrieben. 
<pre>
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
btnWrite: TButton;
btnGet: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnWriteClick(Sender: TObject);
procedure btnGetClick(Sender: TObject);
private
{ Private-Deklarationen }
FMStream : TMemoryStream; // kann durch TBlobStream ersetzt werden
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
FMStream:=TMemoryStream.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FMStream.Free;
end;

procedure TForm1.btnWriteClick(Sender: TObject);
var
iCnt : Integer;
Value : Integer;
begin
FMStream.Clear;
For iCnt:=0 to Listbox1.Items.Count-1 do
begin
Value:=StrToInt(Listbox1.Items[iCnt]);
FMStream.Write(Value,SizeOf(Integer));
end;
end;

procedure TForm1.btnGetClick(Sender: TObject);
var
aInt : Array of Integer;
Value : Integer;
iCnt : Integer;
begin
iCnt:=0;
Listbox1.Clear;
SetLength(aInt,FMStream.Size div SizeOf(Integer)); // Array-Gr��e berechnen
FMStream.Seek(0,soFromBeginning);
While FMStream.Read(Value,SizeOf(Integer))>0 do
begin
aInt[iCnt]:=Value;
Inc(iCnt);
end;
For iCnt:=0 to High(aInt) do
Listbox1.Items.Add(IntToStr(aInt[iCnt]));
aInt:=Nil;
end;

end.

// Formular Datei
object Form1: TForm1
Left = 359
Top = 218
Width = 176
Height = 212
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object ListBox1: TListBox
Left = 12
Top = 12
Width = 49
Height = 165
ItemHeight = 13
Items.Strings = (
'2314'
'3566'
'23'
'2355'
'3455'
'3445'
'9976'
'42'
'645'
'657'
'0'
'4546')
TabOrder = 0
end
object btnWrite: TButton
Left = 68
Top = 16
Width = 75
Height = 25
Caption = 'Write'
TabOrder = 1
OnClick = btnWriteClick
end
object btnGet: TButton
Left = 68
Top = 48
Width = 75
Height = 25
Caption = 'Get'
TabOrder = 2
OnClick = btnGetClick
end
end
</pre> Jens Schuman

**Markus M�ller** · 18.10.2001, 14:57

Hallo, 
 
Ich habe eine Komponente entwickelt, mit der Streams und sogar Dateien beliebiger gr�sse sich in einer Interbase-Datenbank speichern lassen. Diese Komponente ist Freeware und unter www.mmvisual.de > Delphi zu Downloaden. 
 
Gruss Markus M�ller<br&gt

Announcement

Stream, Blob und InterBase6

Stream, Blob und InterBase6

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment