Рассылка. Выпуск 71.

Posted by Chas under Рассылка

От ведущего.

Добрый вечер читатели рассылки. Сегодня выходит 71 выпуск рассылки. В этом выпуске читайте обзор интересных тем с форума за неделю.

Новые интересные статьи клуба программистов.

Статьи на сайте клуба постоянно пополняются. Поэтому это постоянная и основная рубрика рассылки. Так же здесь обзор топиков форума и блога программистов.

Чтение строки из TLabeledEdit чужого приложения
Возникла необходимость считать строку содержащуюся в TLabeledEdit другого приложения.
Тема на форуме

Через какой порт лучше управлять шаговым двигателем?
Через COM, или LPT? А может USB?
В теме обсуждается, какой порт выбрать для управления шаговым двигателем.
Тема на форуме

Как уменьшить картинку с помощью php
В теме приводятся различные способы уменьшения картинки средствами php. Один из них: “Алгоритм используется для подготовки эскизов (иконок) изображений.
Причем данная версия для того хороша, когда все фотки каких-попало форматов. И все аккуратненько подгоняются под размер WIDTHхHEIGHT. То, что не влазит, обрезается”
Тема на форуме

Проверка существования файла на сервере. php
Необходимо проверить, доступна ли фотография по заданному пользователю адресу.
Тема на форуме

Опередить средствами php, версию php и mysql, ос, размер базы данных mysql, свободного места на жестком диске сервера.
Определение ОС сервера и версии PHP – константы:
PHP_OS – соответственно ОС
PHP_VERSION – версия PHP
Подробнее читайте на сайте.
Тема на форуме

Определение локального и внутреннего IP
function GetLocalIPs: TStringList;
type
   TaPInAddr = Array[0..10] of PInAddr;
   PaPInAddr = ^TaPInAddr;
var
   phe: PHostEnt;
   pptr: PaPInAddr;
   Buffer: Array[0..63] of Char;
   I: Integer;
   GInitData: TWSAData;
   IPs: TStringList;
begin
   IPs := TStringList.Create;
   WSAStartup($101, GInitData);
   GetHostName(Buffer, SizeOf(Buffer));
   phe := GetHostByName(buffer);
   if phe = nil then IPs.Add(’No IP found’)
   else
   begin
     pPtr := PaPInAddr(phe^.h_addr_list);
     I := 0;
     while pPtr^ nil do
     begin
       IPs.Add(inet_ntoa(pptr^^));
       Inc(I);
     end;
   end;
   WSACleanup;
   Result := IPs;
end;
Тема на форуме

Как сделать копирование как в TotaleComander?
Т.к. пример достаточно простой, нужно указывать откуда копировать файла + имя коп. файла и куда копировать + имя коп. файла- так что нужные функции дальше сами добавите. Исходник прилагаю.
Тема на форуме

Написание драйвера для контроллера. C++
В теме приводится заготовка для написания драйвера. + Полезные советы и ссылки.
Тема на форуме

Поиск подстроки. asm
nvoke strstr,strdata,strsearch
cmp eax,0
je .nodata
invoke wsprintf,buf,’%X’,eax
invoke MessageBoxA,0,buf,0,0
.nodata:
Тема на форуме

Получить исходный код страницы. php
Какой функцией это можно сделать?
Функцией – file_get_contents.
Пример:
<?php
   $homepage = file_get_contents('http://www.example.com/');
   echo $homepage;
?>

Тема на форуме

Радиолюбительский эфир в Интернете…
…для тех кто увлекается или кто интересуется или не имеет возможности приобрести настоящую станцию-трансивер, но горит желанием узнать в чем тусня – есть два сервиса (наиболее стабильных) покрутить виртуальную ручку настройки и послушать эфир:
1- http://www.globaltuners.com/receiver/list.php?free=1 (требуется регистрация)
2- http://websdr.ewi.utwente.nl:8901 (вещание в MPEG потоке)

Для облегчения процесса и чтоб не лазить по сайтам с регистрацией, склепал онлайн-приемник потоков с радиолюбительских серверов (к примеру, SDR приемник Vivenna2 в Австрии часто ловит станцию с перевернутым речевым-спектром, кто сталкивался – знает)
Тема на форуме

Как в Memo найти и удалить повторяющиеся строки?
Serge_Bliznykov:

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
   i := Memo1.Lines.Count-1;
   while i>=0 do begin
     //присваиваем переменной j номер найденной строки (ищем строчку с индексом i
     j := Memo1.Lines.IndexOf(Memo1.Lines);
     // пока строчка нашлась и эта строчка не является текущей (т.к. сама себя она найдётся всегда) и пока строчки не кончились
     //удаляем строчку и ищем следующую, пока условия выполняются
     while (j>=0) and (j<i) and (i>=0) do begin //пока индексов и количества строк больше нуля
       Dec(i);
       Memo1.Lines.Delete(j); //удаляем индекс
       if i>=0 then
         j := Memo1.Lines.IndexOf(Memo1.Lines);
     end;
     Dec(i);
   end;
end;
Тема на форуме

На сайте клуба есть рубрики пост-обзор и топик-обзор клуба программистов.

Немного юмора.

***
— Вчера долго пытался объяснить бабуле, что работаю программистом…
-???
— Короче, сошлись на том, что чиню телевизоры и развожу мышей…

***
Производители программного обеспечения США сделали ошеломляющее открытие.
Оказывается, скорость чтения россиян в сотни тысяч раз превышает скорость чтения американцев. Это стало очевидно после подсчета миллисекунд, за которые среднестатистический россиянин успевает прочитать пользовательское (лицензионное) соглашение и нажать
*СОГЛАСЕН*.

***
Звонок в техподдержку:
— У меня гугл не открывается…
— Лампочка на модеме горит?
— Да. Только это не лампочка, а тиристорный светодиод.
— Гм… Да, пожалуй, проблемы на нашей стороне…

***
Я звоню админу. Он по номеру на телефоне видит, кто звонит. Вместо “здрасьте” сразу говорит:
— Я тебя ненавижу!
— Я тоже рада тебя слышать!
— Давай я угадаю, что случилось. Ты ничего не трогала и оно само все сломалось. Да?
— Да.

***
Зачем дырку под лазер у оптической мыши делают в форме замочной скважины?

(сколько народу сейчас перевернуло свою мышку?)

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

Читать этот номер в клубе.

Случайные статьи

• Табица в Turbo Pascal
• Рассылка. Выпуск 143
• MESSAGEDLG
• Копирование страниц PageControl
• Исходники программы для создания тестов
• Избежать срабатывания события CloseQuery при выключении
• Наложение маски на компонент
• Дописать в файл (кодировка utf8) строку
• Изменить позицию TrackBar при нажатии Button
• Представить русские символы в виде кода Unicode