Fehlermeldung Falsches Streamformat auf einen Server

[HPB]

Danke für Deine Antwort hoika,
ich habe die DB vom Server auf meinen Rechner geladen.
Ein Backup und ein Restore durchgeführt. Jetzt bekomme ich auch die gleiche Fehlermeldung
wie auf dem Server.
Im Debug wird der Fehler in der TMSComponete angezeigt.
Siehe auch Screenshot. Ich glaube allerdings nicht das hier der Fehler ist.
Folgendes habe ich nun versucht:
Die Blobfelder im Formular herausgenommen.
Eine ADVRichEditor Komponente auf das Formular gelegt und mit
folgendem Code eingelesen:

Delphi-Quellcode:

procedure TTMSFmRegistry.LeseUnterschriften;
var
  pSignaturDatei: string;
  pSignaturStream: TFileStream;
  pLeseSignatur: TFileStream;
begin
  pSignaturDatei := GlobelPfad + '\MvStSignatur.dat'; // Ist dies das richtige Format??
  pSignaturStream := TFileStream.Create(pSignaturDatei, fmCreate);
  dtmdMain.logendatenSIGNATURTEXT.SaveToStream(pSignaturStream);
  pSignaturStream.Free;

  pLeseSignatur := TFileStream.Create(pSignaturDatei, fmOpenRead);
  advrchdtr1.LoadFromStream(pSignaturStream); // advrchdtr.1 = TAdvRichEditor-Komponente
  pLeseSignatur.Free;

  DeleteFile(pSignaturDatei);
end;

Aber auch hier bekomme ich die gleiche Fehlermeldung und im Debug komme ich wieder
zu der gleichen Stelle in der TMSKomponente.

Kann es sein das ich ein falsches Dateiformat in der Variable "pSignaturDatei" verwende?
Welches Format kann, soll, muss ich verwenden, wenn sowohl Text als auch Grafik in einem Blobfeld
gespeichert sind?
Mt Gruß HPB

[dataspider]

Du gibst den Stream ja schon frei, bevor du den in den Richtext einliest...

Frank

Warum machst du erst eine Datei?
Geht es nicht direkt?

Delphi-Quellcode:

procedure TTMSFmRegistry.LeseUnterschriften;
var
  pSignaturStream: TMemoryStream;
begin
  pSignaturStream := TMemoryStream.Create;
  try
    dtmdMain.logendatenSIGNATURTEXT.SaveToStream(pSignaturStream);
    pSignaturStream.Position := 0;
    advrchdtr1.LoadFromStream(pSignaturStream);
  finally
    pSignaturStream.Free;
  end;
end;

[HPB]

Zitat von dataspider:

Du gibst den Stream ja schon frei, bevor du den in den Richtext einliest...

Frank

Warum machst du erst eine Datei?
Geht es nicht direkt?

Ich habe es einmal mit Deinem Vorschlag getestet.
Es wird die gleiche Fehlermeldung ausgegeben.
Mit Gruß
HPB

[mrtwo12]

Moin,

Zitat von dataspider:

Delphi-Quellcode:

procedure TTMSFmRegistry.LeseUnterschriften;
var
  pSignaturStream: TMemoryStream;
begin
  pSignaturStream := TMemoryStream.Create;
  try
    dtmdMain.logendatenSIGNATURTEXT.SaveToStream(pSignaturStream);
    pSignaturStream.Position := 0;
    advrchdtr1.LoadFromStream(pSignaturStream);
  finally
    pSignaturStream.Free;
  end;
end;

ist schon richtig, ich denke hier liegt der "Fehler".

dtmdMain.logendatenSIGNATURTEXT.SaveToStream(pSignaturStream); Bist du sicher das der Stream befüllt ist?

mfg
S.Simon

[dataspider]

Möglicherweise funktioniert der Zugriff bei Blob' s über Stream nicht.
Dann sollte es aber mit BlobStream gehen:

Delphi-Quellcode:

procedure TTMSFmRegistry.LeseUnterschriften;
var
  AStream: TStream;
begin
  AStream := ADataSet.CreateBlobStream(AField, bmRead); // ADataSet und AField ersetzen
  try
    AStream.Position := 0;
    advrchdtr1.LoadFromStream(AStream);
  finally
    AStream.Free;
  end;
end;

Frank