Конференция "Начинающим" » text перевести в binary [D7, MySQL]
 
  • 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;

 
Конференция "Начинающим" » text перевести в binary [D7, MySQL]
Есть новые Нет новых   [104259   +49][b:0.001][p:0.002]