ntext SQLDatenbank

[day]

Hallo

Ich versuche ein aus einer RichEdit komponente in ein ntext datenfeld einer SQL datenbank zu schreiben. Leider klappt das nicht so ganz. Als erster Test habe ich versucht daten aus einem File in die Datenbank zu schreiben. Aber klappte auch nicht. Kann mir jemand weiterhelfen?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  blob: TStream;
  fs : TFileStream;
begin
  blob := TAble1.CreateBlobStream(TAble1.FieldByName('SEARCHTEXT'), bmWrite);
  try
   // memo1.Lines.SaveToFile('c:\test.txt');
    blob.Seek(0, soFromBeginning);
    fs := TFileStream.Create('c:\test.txt', fmOpenRead or
      fmShareDenyWrite);
    try
      blob.CopyFrom(fs, fs.Size)
    finally
      fs.Free
    end;
  finally
    blob.Free
  end;

wenn ich diesen code ausführe, bekomme ich die Fehlermeldung: exception class EWriteError with message 'Stream write error'

woran liegt das?

[day]

Hallo

Ich verwende die BDE komponente. Kann es sein das mir die probleme bereitet?

[Bernhard Geyer]

Verwende mal statt einem ntext ein blob-Feld in der Datenbank.

[day]

das problem ist, dass es bei MS SQL nicht direkt einen blob gibt. sondern eben ein ntext verwendet wird um binäre daten und bilder zu speichern

[Bernhard Geyer]

Beim MS-SQL-Server heißt der Blob-Typ image (oder so ähnlich, hab gerade keinen zur Hand).

[day]

Hallo
Hast recht! Habe jetzt ein image verwendet und in der Table zeigt er mir das feld als blob an. Danke!

Habe aber jetzt noch ein anderes problem und zwar versuche ich als Test aus einer Textdatei daten in den blob zu schreiben. aber ich bekomme immer einen Stream write error

Code:

var
  blob: TStream;
  fs : TFileStream;
begin
  blob := TAble1.CreateBlobStream(TAble1.FieldByName('MYBLOB'), bmWrite);
  try
   // memo1.Lines.SaveToFile('c:\test.txt');
    blob.Seek(0, soFromBeginning);
    fs := TFileStream.Create('c:\test.txt', fmOpenRead or
      fmShareDenyWrite);
    try
      blob.CopyFrom(fs, fs.Size)  // an dieser stelle tritt der fehler auf
    finally
      fs.Free
    end;
  finally
    blob.Free
  end;