Форум программистов и сисадминов Киберфорум - Блоги - Schtrich

Пример использования Long Polling в jQuery & php

Schtrich — Thu, 06 Dec 2012 23:13:56 GMT

Сторона клиента:

HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

"http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<script type="text/javascript" 
src="http://code.jquery.com/jquery-1.8.2.min.js"></script>
<script type="text/javascript" charset="utf-8">
 
    var timestap = null;
    
    function WaitForMsg()
    {
        $.ajax({
            
            type: 'GET',
            url: 'comet.php?timestamp='+ timestap,
            async: true,
            cache: false,
            success: function(data){ 
                
                var json = eval('('+ data + ')');
                
                    if (json["msg"]!="")
                    {
                        alert(json["msg"]);
                    }
                    
                    timestap = json["timestamp"];
                    
                    setTimeout('WaitForMsg()',1000);
                
            },
            
            error: function(XMLHttpRequest, textStatus, errorThrown){
                
                // alert("Error: " + textStatus + "(" + errorThrown +")");
                
                setTimeout('WaitForMsg()',15000);
            }
            
        });
    }
    
    $(document).ready(function(){
        
        WaitForMsg();
        
    });
 
</script>
<link type="text/css" rel="stylesheet" href="css/style.css" media="all">
<title>Comet</title>
</head>
<body>
 
</body>
</html>

сторона сервера (comet.php):

PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
$filename = dirname(__FILE__)."/data.txt";
 
$lastmodif = isset($_GET['timestamp']) ? $_GET['timestamp'] : 0;
$currentmodif = filemtime($filename);
 
while ($currentmodif <= $lastmodif)
{
    usleep(10000);
    clearstatcache();
    
    $currentmodif =  filemtime($filename);
    
} 
 
$response = array();
 
$response['msg'] = file_get_contents($filename);
$response['timestamp'] = $currentmodif;
 
echo json_encode($response);

При любом изменении файла data.txt в браузере будет выводится сообщение с его содержимым.

Случайное число в C++

Schtrich — Wed, 07 Nov 2012 10:26:18 GMT

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#include 
#include 
#include 
 
using namespace std;
 
int main(int argc, char *argv[])
{
    
    long long x;
    
    asm("rdtsc" : "=A"(x));
    
    srand(x);
    
    int a = rand()%100;
    
    cout << a;
    
    system("PAUSE");
    
    return EXIT_SUCCESS;
    
}

php! Сумма цифр натурального числа

Schtrich — Thu, 17 May 2012 05:33:27 GMT

PHP
1
2
3
4
5
6
7
8
9
10
11
12
// функция вернет сумму чисел натурального числа
function get_sum($number)
{
 
$sum = 0;
do {
    $sum += $number % 10;
}
while ($number = (int) $number / 10);
 
    return $sum;
}

собственно говоря usage:

PHP
1
2
$s = get_sum(5555);
echo $s;

php! Кол-во цифр в натуральном числе

Schtrich — Thu, 17 May 2012 05:25:21 GMT

PHP
1
2
3
4
5
6
7
8
9
10
// функция возвращает кол-во цифр в натуральном числе.
function getLength($number) {
    $length = 0;
    if ($number == 0){
        $length = 1;
    } else {
        $length = (int) log10($number)+1;
    }
    return $length;
}

пример использования:

PHP
1
2
$number = 5000;
echo getLength($number);

Delphi 7! Ловим событие при сворачивании формы

Schtrich — Sat, 14 Apr 2012 13:54:37 GMT

В разделе Public Declaration объявим процедуру DoMinimize

Delphi
1
2
3
4
5
6
type
  TForm1 = class(TForm)
  public
    { Public declarations }
    procedure DoMinimize(Sender: TObject);
  end;

в разделе Implementation реализуем процедуру DoMinimize

Delphi
1
2
3
4
procedure TForm1.DoMinimize(Sender: TObject);
begin
  showmessage('Форма свернута!');
end;

теперь при сворачивании формы вы увидите сообщение о том что форма свернута.

Delphi! Отправка писем. Кодировка

Schtrich — Wed, 11 Apr 2012 21:16:27 GMT

Решение проблемы с кодировкой при отправке письма связкой компонентов idSmtp и idMessage

1-ое что делаем это в событие OnInitializeISO компонента IdMessage пишем:

Delphi
1
2
3
4
5
procedure TForm1.IdMessage1InitializeISO(var VTransferHeader: TTransfer;
  var VHeaderEncoding: Char; var VCharSet: String);
begin
VCharSet:=IdMessage1.CharSet;
end;

чтобы не было ошибки нужно добавить в uses модуль IdCoderHeader!

2-ое, выставляем кодировку отправляемого письма в UTF8, того же компонента:

Delphi
1
IdMessage1.CharSet:='utf8';

3. конвертируем Тему и Содержание письма в UTF8

Delphi
1
2
idMessage1.Subject:=AnsiToUtf8(subj);
idMessage1.Body.text:=AnsiToUtf8(subj);

4. Установим ContentType как text/plain в свойствах компонента IdMessage

5. Наслаждаемся проделанной работой!