wie varbinary (text) mit Delphi lesen und schreiben

[temi]

Hallo Forum,

kleine Hintergrundinfo da ich keine Erfahrung habe mit binary Typ. Und vielleicht habe ich auch einen völlig falschen Ansatz gewählt bzw. ist overkill da in dem Feld nur normale Text-Zeichen.

Ich hab hier in einer Mysql-DB ein Feld 3 Zeichen mormale Text da dieses Feld als Schlüssel verwendet wird und ich auch nach Groß- und Kleinschreibung selektieren muß, musste ich leider das Feld als Binary anlegen. Die Tabelle wird hauptsächlich von einem PHP-Skript bearbeitet und da ist es auch kein Problem. Jetzt will ich aber dieses Feld auch mit Delphi anzeigen und schreiben.

nach durchlesen von Internet bin ich auf folgenden Code gekommen leider wird nichts in meinen Richedit angezeigt

folgendes habe ich im AfterScroll Event meine Query geschrieben.

Delphi-Quellcode:

var
   ts: TStream;
   ms: TMemoryStream;
begin

  try
    ts := TStream.Create;
    ts := ZQuery1.CreateBlobStream(ZQuery1.Fieldbyname('kuerzel'),bmRead);
    try
      ms := TMemoryStream.Create;
      ts.Position := 0;
      ms.LoadFromStream(ts);
      ms.position := 0;
      RichEditID.Lines.LoadFromStream(ms);
    finally
      ms.Free
    end;
  finally
    ts.Free;
  end
end;

Vielen Dank schon mal für eure Hilfe
Micha

[mkinzler]

Und das geht mit einem normalen Textfeld(CHAR/VARCHAR) nicht?

[temi]

Zitat:

Zitat von mkinzler (Beitrag 1284503)

Und das geht mit einem normalen Textfeld(CHAR/VARCHAR) nicht?

Ah das mit dem Select muß ich nochmal ausprobieren bin jetzt nicht mehr ganz sicher.

Aber was ganz sicher nicht funktioniert ist einen unique key drüberlegen da wird nicht zwischen Groß und Kleinschreibung unterschieden nur bei Binary :( und das war glaube ich damals der eigentliche Grund das so zu machen.

Gruß
Micha

[mkinzler]

Komisches Verhalten. Auf BINARY/VARBINARY Felder kannst Du aber wohl wie auf CHAR/VARCHAR zugreifen, also ohne Stream.

https://dev.mysql.com/doc/refman/5.0...varbinary.html

[temi]

[QUOTE=mkinzler;1284506]Komisches Verhalten. Auf BINARY/VARBINARY Felder kannst Du aber wohl wie auf CHAR/VARCHAR zugreifen, also ohne Stream.

hab ich versucht aber dann steht '(Bytes)' im DBEdit
oder wenn ich query.AsString mache geht auch nicht mit AsVariant könnte es vielleicht gehen aber ich weiß nicht wie. Gibt es eine Funktion die eine Variant in einen String umwandeln kann (Delphi 6) (ich kann immer davon ausgehen das in dieser Variant ein String steht.


Gruß
Micha

[mkinzler]

VarToStr ?

[temi]

Zitat:

Zitat von mkinzler (Beitrag 1284510)

VarToStr ?

Genau das hab ich gesucht Dachte aber das gibt's in D6 nicht dabei muß man erst die Unit Variants einbinden ;)

edtID.Text := VarToStr(ZQuery1kuerzel.AsVariant);

leider gibt er mir ein ERangeError :(

Gruß Micha