Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 //заголовок UUE-файла

 writeln(ouf, 'begin 644 '+extractfilename(edit1.text));

 //записываем строки в файл

 for i:=1 to sxh do begin

write(ouf, 'M');

// 'M' значит, что в строке 60 символов

for j:= 1 to 60 do begin

write(ouf, chr(uue[oum]));

oum:= oum+1;

end;

writeln(ouf);

 end;

 //записываем последнюю строку, которая//обычно

короче 60 символов

 sxh:= (sxl*6) div 8;

 write(ouf, chr(sxh+32));

 for i:= 1 to sxl do begin

write(ouf, chr(uue[oum]));

oum:= oum+1;

 end;

 // "добиваем" строку незначащими символами

 for i:= sxl+1 to 60 do write(ouf, '`');

 //записываем последние строки файла

 writeln(ouf);

 writeln(ouf, '`');

 writeln(ouf, 'end');

 closefile(ouf);

 freemem(uue, szh+szl);

 //освобождаем память

 showmessage('DONE.'); //Готово. Забирайте!

end;

end.

Из FIDO-переписки:

– New auto-created HomeNet area (555:172/89.2) ------------- HOME.PROGRAMMERS -

 Msg : 34 of 35

 From : Philip Bondarovich 555:172/445.43 Пнд 17 Янв 00 02:51

 To : Denis Guravski Втp 18 Янв 00 22:21

 Subj : UUE

– ------------------------------------------------------------------------------

 Wednesday January 12 2000 22:56, Denis Guravski писал All:

 DG> Люди , сpочно нyжно описание сабжа .

=== Begin uuecode ===

– INT.PROGRAMMERS (256:172/43) ------------------------------ INT.PROGRAMMERS -

 Msg : 38 of 38 -36 Scn

 From : Monk 256:172/10 15 Jan 00 18:24:30

 To : Nikolay Severikov 16 Jan 00 03:47:50

 Subj : UU-code

– ------------------------------------------------------------------------------

 Жывi сабе памаленькy, /_*Nikolay*_/!

У чацьвэp Стyдзеня 13 2000 y 23:25, цёмнай ночкаю, Nikolay Severikov тайна пiсаў All, i я ўцягнyўся...

 NS> Расскажите плиз о сyбже... Как он кодиpyется.

Калi ласка.

=== Cut ===

1) Читаем из исходного хфайла 3 байта.

2) Разбиваем полyченные 24 бита (8x3=24) на 4 части, т.е. по 6 бит.

3) Добавляем к каждой части число 32 (десятичн.)

Примеp: Имеем тpи числа 234 12 76. Побитово бyдет так -

 11101010 00001100 01001100 pазбиваем и полyчаем -

 111010 100000 110001 001100 добавляем 32 -

+100000 +100000 +100000 +100000

 ------ ------ ------ ------

1011010 1000000 1010001 101100 или в бyквах -

Z @ Q ,

Вот собственно и все. В UUE файле в пеpвой позиции стоит кол-во закодиpованных

символов + 32. Т.е. вся стpока содеpжит 61 символ. 1 символ идет на кол-во.

Остается 60

символов _кода_. Если подсчитать, то мы yвидим, что для полyчения

60

символов кода необходимо 45 исходных символов. Для полной стpоки в начале стоит

бyква "M", а ее ASCII код = 77. 45+32=77.

=== Cut ===

 З павагай да ўсiх вас, Monk. Спадзяюся на пpацяг pазмовы, *Nikolay*!

...
– Папа, я есть хочy!
– Стыдись, сынок, в твои годы я хотел стать космонавтом!

– +- GoldED+/386 1.1.1.2

 + Origin: - Тавеpна BBS - 241-5714 23:00-6:00. Freqs allowed. (256:172/10)

=== End uuecode ===

WBR.

... Чешиpский Котенок лyчше всех

– -- GoldED+/W32 1.1.1.2

 * Origin: WonderLand (555:172/445.43)

 

ISAPI 

Почему мои ISAPI-ориентированные библиотеки, созданные в Delphi 3, не могут обрабатывать несколько соединений?

Nomadic отвечает:

Волшебник по созданию ISAPI DLL в Delphi 3 создает полностью безопасную многопоточную библиотеку, но не выставляет флаг, говорящий приложению, что эта библиотека в этом отношении безопасна. Это легко исправить, просто добавив строчку:

IsMultiThread := TRUE;

end;

первой строкой в Вашем блоке begin-end файла проекта (DPR).

Соединение 

Проверка URL

The_Sprite отвечает:

Данная функция позволяет Вам проверить существование определённого адреса(URL) в интернете. Естественно она может пригодиться веб-мастерам, у которых на сайте много ссылок, и необходимо с определённой периодичнойстью эти ссылки проверять.

URL может быть как с префиксом http:/ так и без него - эта функция добавляет префикс http:// если он отсутствует (необходимо для функции internetOpenUrl которая так же поддерживает FTP:// и gopher://

Эта функция проверяет только два возвращаемых кода '200'(ОК) или '302' (Редирект), но Вы можете заставить проверять функцию и другие коды. Для этого достаточно модифицировать строчку "result := ".

Платформа: Delphi 3.x (или выше)

uses wininet;

Function CheckUrl(url:string):boolean;

var

 hSession, hfile, hRequest: hInternet;

 dwindex,dwcodelen :dword;

 dwcode:array[1..20] of char;

 res : pchar;

begin

 if pos('http://',lowercase(url))=0 then url := 'http://'+url;

 Result := false;

 hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);

 if assigned(hsession) then begin

hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);

dwIndex := 0;

dwCodeLen := 10;

HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);

res := pchar(@dwcode);

result:= (res ='200') or (res ='302');

if assigned(hfile) then InternetCloseHandle(hfile);

InternetCloseHandle(hsession);

 end;

end;

Разное 

Объект DocInput