Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 26.09.01 09:04

Пирушка в Питере! 28.09.2001, ПТ, 19-00, Ст. м. СПОРТИВНАЯ
Жители Питера и гости города! Пора отметить наступление осени. Примите активное участие в пивной встрече питерского филиала delphi.mastak.ru!!! Собираемся в ПТ, ст. м. СПОРТИВНАЯ, с 18-30 до 19-15 в вестибюле при выходе с эскалатора (наверху). Если кто опоздает, то нас, скорее всего, можно будет найти в кафе "Тучков буян", что недалеко от метро. При встрече в руках у меня будет табличка с надписью "DELPHI".

Кое-что из нашей кладовки   |x|
  • Инструменты к DrawScene Александр Омельченко alex@econom.zp.ua   (01.03.01 12:12)
    2 программки:
    1 Bitstrach - позволяет склеивать несколько bmp в 1
    2 BmpCreator- позволяет менять фон bmp, строит маски и прикрепляет к исходной картинке.
    »»» Скачать: исходные тексты (375кб)
  • Icon_Extractor Walker walker_fk@mail.ru   (26.09.01 03:14)
    программа извлекает иконки из .dll, .exe, .ico, .cur, .icl, .bmp ...
    файлов... только не сохраняет (мне просто лень сделать эту функцию, хотя Popup-менюшка уже есть)

    есть исходники, поэтому ВЫ сможете сами всё сделать...
    »»» Скачать: исходные тексты (8кб) демонстрационный EXE файл (188кб)
Лучшее из нашего FAQ   |x|
Как набрать номер с помощью модема в Win32?
Используйте функцию Windows API CreateFile() чтобы получить дескриптор порта, и стандартные функции ввода-вывода для связи с полученным портом.
Пример:

var
hCommFile : THandle;

procedure TForm1.Button1Click(Sender: TObject);
var
PhoneNumber : string;
CommPort : string;
NumberWritten : LongInt;
begin
PhoneNumber := 'ATDT 1-555-555-1212' + #13 + #10;
CommPort := 'COM2';
{Open the comm port}
hCommFile := CreateFile(PChar(CommPort),
            GENERIC_WRITE,
            0,
            nil,
            OPEN_EXISTING,
            FILE_ATTRIBUTE_NORMAL,
            0);
if hCommFile=INVALID_HANDLE_VALUE then
begin
    ShowMessage('Unable to open '+ CommPort);
    exit;
end;

{Dial the phone}
NumberWritten:=0;
if WriteFile(hCommFile,
        PChar(PhoneNumber)^,
        Length(PhoneNumber),
        NumberWritten,
        nil) = false then begin
    ShowMessage('Unable to write to ' + CommPort);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{Close the port}
CloseHandle(hCommFile);
end;


Источник: Дельфи. Вокруг да около.


»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
DirectX (Игровой SDK) Часть 7
Часть 7 (Использование класса DDCanvas, Улучшение нашего изображения,
А что по поводу палитр?)
Другие сайты о DELPHI   |x|
The palace of the King Midas
На сайте представлены различные программы, утилиты и игры.sЕсть раздел для программистов, посвященный Delphi. В нем
можно найти примеры по работе с DirectX (DirectSound,
DirectDraw), а также ...
Опрос населения :)
Как часто вы заглядываете на наш сайт?
»»» Регулярно
»»» Раз в неделю
»»» Когда нужна помощь
»»» По почтовой рассылке
»»» Сделал стартовой страницей
Для души

Хокку дня
Плотно закрыла рот
раковина морская.
Невыносимый зной!

Афоризмы
Никто так не нуждается в отпуске, как человек, только что вернувшийся из отпуска (Элберт Хаббард)

Фраза дня
Капля никотина убивает лошадь, а хомяка разрывает на части!

И на закуску коротенький анекдот
- Чем юзер отличается от программиста?
- Если попросить их перезагрузить комп пользуясь только мышкой, юзер жмет на "завершение работы" в Виндовсе.
- А что сделает программист?
- Он поднимет мышку со стола и нажмет ею на Reset.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=9471


На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу
Рейтингуется SpyLog

В избранное