Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник
Коллекция курьезных вопросов из форумов
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

text перевести в binary [D7, MySQL]


sewerneik ©   (06.11.17 18:02

Привет! есть 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;


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо