PHP DM Gate v0.9 » text перевести в binary <span class="vd">[D7, MySQL]</span>

sewerneik © (06.11.17 18:02) [0]

Привет! есть edit1.text в котором текст.
есть dbedit1
Вопрос как текст из edit1.text перевести в binary и записать в бд mssql

<Цитата>
Ирина (06.11.17 18:14) [1]

В компьютере (в том числе и в базах) все и без твоих ухищрений и извращений уже в бинари :)

<Цитата>
sewerneik © (06.11.17 18:18) [2]

в dbgreed отображается запись BYTE, а в бд mssql при редактировании binary(36)
и не дает записать мне допустим если я пишу
dbedit1.text:=edit1.text;
dbnavigator.btnclick(nbpost) ну или что то в этом роде!!!

<Цитата>
Германн © (07.11.17 01:40) [3]

Если поле в таблице имеет тип BINARY(VARBINARY), то при чём тут какой-то TEdit? А уж TDBEdit вообще в этом случае идёт лесом на север. Да ещё и на верблюдах.

<Цитата>
sewerneik © (07.11.17 16:44) [4]

а как сделать подсказать можете?

<Цитата>
kilkennycat © (07.11.17 17:35) [5]

вешаешь обработчик нажатия клавиш на edit1
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (StrToIntDef(Key,0) > 1) then Key:=Chr(0);
end;

Всё. теперь в edit1.text будет бинарник а-ля натюрель.

<Цитата>
sniknik © (07.11.17 23:17) [6]

> MySQL
> в бд mssql
???

запросом можно, с конвертацией если потребуется... или, раз уж фигурирует dbedit1/работа с ним(?), то прописать в обработчиках GetText/SetText поля с бинарным типом

procedure TForm1.ADODataSet1binGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
Text:= Sender.AsString;
end;

procedure TForm1.ADODataSet1binSetText(Sender: TField; const Text: String);
begin
Sender.AsString:= Text;
end;

<Цитата>