IBX, FIBPlus, UIB, ADO, .Net и прочее-прочее-прочее, в общем все, что относится к созданию приложений, работающих с InterBase, Firebird и Yaffil - клиент-серверных, трехзвенных, консольных и т.п.
Модератор: kdv
-
Dmitry74
- Сообщения: 70
- Зарегистрирован: 31 июл 2006, 15:55
Сообщение
Dmitry74 » 29 авг 2006, 14:59
Помогите перевести функцию написанную в Delphi в PSQL
Код: Выделить всё
function UnCryptoString(ASource: String; AShift: Integer): String;
var
StrLength, i: Integer;
begin
Result := ASource;
StrLength := Length(Result);
for i := 1 to StrLength do
if Result [i] >= #32 then
Result [i] := Chr ((Ord (Result [i]) + 192 - AShift) mod 224 +32);
end;
Буду очень признателен!
Или подскажите аналогичные функции Length Ord Result
А то я в PSQL не силён и ничего не выходит... 
-
Dmitry74
- Сообщения: 70
- Зарегистрирован: 31 июл 2006, 15:55
Сообщение
Dmitry74 » 29 авг 2006, 15:06
Dimitry Sibiryakov писал(а):А зачем? Засунь этот код в UDF и все, телемаркет.
Дим! подскажи как это сделать.
а то я ни разу...
-
kdv
- Forum Admin
- Сообщения: 6595
- Зарегистрирован: 25 окт 2004, 18:07
Сообщение
kdv » 29 авг 2006, 16:23
-
Dmitry74
- Сообщения: 70
- Зарегистрирован: 31 июл 2006, 15:55
Сообщение
Dmitry74 » 29 авг 2006, 16:46
А на встроенном сервере эта фича будет работать?
А то кручу верчу не могу воспользоваться!
Куда DLL готовую копировать
-
kdv
- Forum Admin
- Сообщения: 6595
- Зарегистрирован: 25 окт 2004, 18:07
Сообщение
kdv » 29 авг 2006, 16:51
А на встроенном сервере эта фича будет работать?
будет.
А то кручу верчу не могу воспользоваться!
Куда DLL готовую копировать
а ты filemon запусти, и посмотри, где твоя программа (через embedded) ищет эту udf dll.