Type TConvertChars = array [#128.
.#255] of char;
Const Koi_WinChars: TConvertChars = (
#128,#129,#130,#131 ,# 132,# 133,# 134,#135,# 13
6,# 137,#138,#139,#140,# 141 ,#142,# 143,
#144,# 145,#146,#147,#148,#149,#150,#151 ,#15
2,#153,#218,#155,#176,#157,#183,#159,
#160,#161,#162,#184,#186,#165,#166,#191,#16
8,#169,#170,#171,#172,#173,#174,#175,
#156,#177,#178,#168,#170,#181,#182,#175,#18
4, #185,#186,#187,#188,#189,#190,#185,
#254,#224,#225,#246,#228,#229,#244,#227,#24
5, #232,#233,#234,#235,#236,#237,#238,
#239,#255,#240,#241,#242,#243,#230,#226,#25
2, #251 ,#231 ,#248,#253,#249,#247,#250,
#222,#192,#193,#214,#196,#197,#212,#195,#21
3, #200,#201,#202,#203,#204,#205,#206,
#207,#223,#208,#209,#210,#211,#198,#194,#22
0,#219,#199,#216,#221,#217,#215,#218);
function Koi_WinConvert (const St: string): string;
var i: integer;
begin
gl:= False;
timeKillEvent (FTimer)
end
end;
{ END АЛГОРИТМ ДВОЙНОЙ ENTER }
Помоги стали- м
це! Экономь элек-
т роэнергию !
О Т-
КЛЮ Ч И \и т Lock!
Result:=St;
for i:=1 to Length (St) do if St[i]>#127 then
Result[i] :=Koi_WinChars[St[i]];
end;
{ АЛГОРИТМ ДВОЙНОЙ ENTER }
var gl: boolean;
FTimer: cardinal;
procedure RemoteTimeProc (uID, uMsg:
UINT;dwUser, dw1, dw2: DWORD); stdcall;
begin
gl:= False
end;
procedure TForm1.Memo2KeyPress (Sender:
TObject; var Key: Char);
begin
if Key = #13 then begin
if gl then begin
gl:= False;
Memo2.Perform (WM.CHAR, 8, 0);
button2.0nClick (nil);
Key:= #0;
timeKillEvent (FTimer)
end
else begin
gl:=True;
FTimer:= timeSetEvent (500,0,@RemoteTimeProc,
DWORD (Self), TIME.PERIODIC)
end;
end
else begin
Языковой перевод текста
через сервис Google
Д
ля отправки POST-запросов в сеть восполь-
зуемся методом
POST
компонента idHTTP из
пакета Indy. Заметьте, мы его не помещали на фор-
ме, поскольку будем использовать динамически.
Для этого в секции
Uses
проекта добавим модуль
IdHTTP.
Сам запрос (см. параметры выше) на ад-
рес
сформируем
в объекте класса
TStringList,
а ответ будем загру-
жать через потоковый класс
TStringStream:
{
ОСНОВНОЙ МОДУЛЬ ЗАПРОСА ПЕРЕВОДА}
function translate_google (text, myLang, toLang, file-
name: string; play: boolean): string;
var
IdHTTPI: TldHTTP;
data: TStringList;
Response: TStringStream;
s: string;
k, n: integer;
ms: TMemoryStream;
begin
data:= TStringList.Create;
IdHTTPI := TldHTTP.Create (nil);
//заменяем переводы строк на пробел и уби-
раем троеточие
text:= stringreplace (stringreplace (stringreplace
(text,
#13#10,
[rfReplaceAll]),
",
[rfReplaceAll]), \ \
[rfReplaceAll]);
//запрос
data.Add (‘ieOTF-8’);
©
©
©
Кто-нибудь вообще
лицензионное согла-
шение до конца дочи-
тывал? Они т ам как,
поженятся?
^тштштшшттттшшштштштттшттттштттштштшшМ
рттттяшттятттштшшттттятштшяттшттттштшштттят^
Ваши р уки ввели иди-
от скую ком анду и бу-
дут ампутированы.
У-.
-- - - -
--------
-
-----
Э
предыдущая страница 46 Компьютер 2012 11-12 читать онлайн следующая страница 48 Компьютер 2012 11-12 читать онлайн Домой Выключить/включить текст