Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запись и чтение [D7, MSSQL]

fd979 © (2007-06-14 09:23:00)
Товарищи..

Проблема заключается в следующем:

Строка преобразуется с помощью некой функции в набор всяких непонятных символов и записывается в базу. Потом считывая с этого поля преобразую обратно. Странно, что когда записываю в базу преобразованную строку сам, то есть обыкновенным копи-пейстом, при считывании обратно преобразуется правильно, а вот когда записываю с помощью запроса (не важно программно или из Куери Аналайзера), то при преобразовании обратно строка получается не правильной.

тип поля nvarchar.

fd979 (2007-06-14 11:58:00) [1]
Спасибо всем!

sniknik (2007-06-14 11:16:00) [2]
> получаются какие-то юникод символы.
обязательно получаются... ты же используешь
> тип поля nvarchar.
что означает юникод строку, и неявно означает что оно может и преобразовать к нему, если вдруг строка не в нем.
а она у тебя явно не в нем
> function Encrypt(const InString: string; StartKey,MultKey,AddKey:Integer): string;

> CHAR(Byte(InString[I]) xor(StartKey shr 8))
не боишься нулей, или др. управляющих НЕ символов? и что с ними думаешь будет при передаче в строку символов?

если уж делаешь так, что данные получаются не строковые, а бинарные то и пиши их в масив байт (varbinary), или блоб (image).

ЮЮ (2007-06-14 11:13:00) [3]
>
> Encrypt('строка, подлежащая кодированию'),

Перестарался. Естественно, параметр в самом запросе, а ему уже присваивать Encrypt()

ЮЮ (2007-06-14 11:10:00) [4]
> когда записываю в базу преобразованную строку сам, то есть
> обыкновенным копи-пейстом,

ты сервер, что ли? сам - это как?

> а вот когда записываю с помощью запроса

Insert INTO USR (UserName, PWD, LinkedUser, R1, R2, R3, SITES, email, mobile, phone) VALUES(
'хххххх',
'F3h2%6oOUU??',
'000008',
Encrypt('строка, подлежащая кодированию'),

> или из Куери Аналайзера

Измени алгоритм, чтобы после кодирования получались "печатные" символы, или используй CHAR() + CHAR() + ... для создания строк из непечатных символов, как если бы на делфи 'ab'#10'cd'

Desdechado (2007-06-14 11:07:00) [5]
> я думаю может при преобразовании получаются какие-то юникод символы
Как вариант - неверный чарсет у поля, куда азписываешь.

Но параметры использовать - без вариантов.

Плохиш (2007-06-14 10:57:00) [6]

> fd979 © (14.06.07 10:51) [6]

Используй параметры.

fd979 (2007-06-14 10:52:00) [7]
проблема в выделенном тексте...

fd979 (2007-06-14 10:51:00) [8]
Покажи как пишешь означает, по моему, покажи как преобразуешь строку, а не то как я записываю в базу. Обыкновенный инсерт. А аналайзер я упомянул, только из-за того, что попробовал вставить данные не только с помощью программы.

Insert INTO USR (UserName, PWD, LinkedUser, R1, R2, R3, SITES, email, mobile, phone) VALUES(
'хххххх',
'F3h2%6oOUU??',
'000008',
'F3u2b6i\x8;\x1C#ЏЈ\x5H',
'F3u2b6i\x8;\x1C#ЏЈ\x5H',
'F3u2b6i\x8;\x1C#ЏЈ\x5H',
'SED;ERT;FFFG;TGHR',
Null,
Null,
Null)

ЮЮ (2007-06-14 10:11:00) [9]
> Ну в общем и целом с некоторыми изменениями базировано на
> стандартном алгоритме Борланда:

> когда записываю с помощью запроса (не важно программно или
> из Куери Аналайзера),

Ну и как этот код применяется при использовании Куери Аналайзера? :)

> покажи как пишешьозначает где и как ты эти функции используешь? Как понимаещь, Куери Аналайзеру пофиг на твои функции.

fd979 (2007-06-14 09:44:00) [10]

> StriderMan © (14.06.07 09:35) [2]
> типа шифрование?
>
> покажи как пишешь

Ну в общем и целом с некоторыми изменениями базировано на стандартном алгоритме Борланда:

function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string; var I : Integer; begin Result := ''; for I := 1 to Length(InString) do begin Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8)); StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey; end; end; function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string; var I : Integer; begin Result := ''; for I := 1 to Length(InString) do begin Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8)); StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey; end; end;

fd979 (2007-06-14 09:43:00) [11]

> Anatoly Podgoretsky © (14.06.07 09:31) [1]
> У тебя наверно ошибка в программе

Я тоже так думал. Но проверено - если не записывать в базу работает нормально. я думаю может при преобразовании получаются какие-то юникод символы.

StriderMan (2007-06-14 09:35:00) [12]
типа шифрование?

покажи как пишешь

Anatoly Podgoretsky (2007-06-14 09:31:00) [13]
У тебя наверно ошибка в программе

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »