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

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

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Февраль 2003   →
 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
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

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


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
  • SpaceEncoder Alex Petrovsky develop@list.ru   (15.02.03 15:45)
    Space Encoder(без кодеров) - программа для кодирования музыкальных файлов в разные форматы. Поддерживает кодирование в MP3, OGG, AAC и WMA. Поставляется с исходниками. Программа написана с использованием компонентов RxLib.
    »»» Скачать: исходные тексты (183кб) демонстрационный EXE файл (324кб)
  • SpaceEncoder Alex Petrovsky develop@list.ru   (15.02.03 15:47)
    Space Encoder(без кодеров) - программа для кодирования музыкальных файлов в разные форматы. Поддерживает кодирование в MP3, OGG, AAC и WMA. Поставляется с исходниками. Программа написана с использованием компонентов RxLib.
    »»» Скачать: исходные тексты (183кб) демонстрационный EXE файл (324кб)
  • SpaceEncoder Alex Petrovsky develop@list.ru   (15.02.03 15:43)
    Space Encoder(с кодерами) - программа для кодирования музыкальных файлов в разные форматы. Поддерживает кодирование в MP3, OGG, AAC и WMA. Поставляется с исходниками. Программа написана с использованием компонентов RxLib.
    »»» Скачать: исходные тексты (183кб) демонстрационный EXE файл (1702кб)
  • SpaceWord 3.51 Alex Petrovsky develop@list.ru   (15.02.03 15:40)
    SpaceWord - это навароченый текстовый редактор. SpaceWord может работать со всеми файлами, в которых содержатся текстовые данные. В основном это файлы Word: *.doc,*.rtf; интернет: *.htm, *.html,*.shtml или просто текстовые: *.txt. К дополнительным возможностям можно отнести сохранение текста в виде *.pas, *.cpp, *.c,*.h, *.php, *.phtml, *.java, *.js и др.В ней присутствуют множество дополнительных функций, такие как поддержка шести кодировок: KOI, ANSI, IBM, MAC, ISO и ALT (попарно), шифровка/дешифровка текста, макросы для работы с регистром текста, макросы для преобразования чисел, вставка объекта в файл , заголовка HTML, "скелета" pas файла, специальная вставка, преобразование чисел в слова, в валюту, калькулятор, возможность авто сохранения и т.д.
    Также в программе присутствует множество настроек.
    »»» Скачать: исходные тексты (181кб) демонстрационный EXE файл (426кб)
  • Passwer 0.1 Шоломицкий 02pm@mail.ru   (15.02.03 14:09)
    Программа для установки паролей на папки и программы. Программу не возможно выключить и убрать из автозагрузки!
    Скачивать надо 2 файла
    http://deskbuttons.narod.ru/Passwer1.rar и
    http://deskbuttons.narod.ru/Passwer2.rar так как
    закачать один большой файл на народ не удалось(((
    Вместе с исходниками!
    »»» Скачать: исходные тексты демонстрационный EXE файл
  • RCont - утилита для контекстной замены фраз в текстовых файлах blackman blackman@lycos.ru   (15.02.03 13:59)
    RCont - утилита для контекстной замены фраз в текстовых файлах (кодировка DOS (OEM) или WIN-1251).
    Допустима групповая обработка файлов в директории/поддиректориях и/или по расширению файла. На сайте еще около 100 исходников.
    »»» Скачать: исходные тексты (14кб) демонстрационный EXE файл (185кб)
Лучшее из нашего FAQ   |x|
Кто-нибудь может кинуть мне пример программирования COM портов

»»» Rukhimovich Oleg - rukhiich@hotmail.com (06.06.00 20:23)
Если нужны подробности, пишите.

unit TestRosh;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
  PortCombo: TComboBox;
    Label2: TLabel;
    BaudCombo: TComboBox;
    Label3: TLabel;
    ByteSizeCombo: TComboBox;
    Label4: TLabel;
    ParityCombo: TComboBox;
  Label5: TLabel;
    StopBitsCombo: TComboBox;
    Label6: TLabel;
    Memo1: TMemo;
    Edit1: TEdit;
  Button1: TButton;
    Memo2: TMemo;
    Edit2: TEdit;
    Label7: TLabel;
    Button2: TButton;
    Label8: TLabel;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);

   procedure Memo2Change(Sender: TObject);
    procedure Memo1Change(!
Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure PortComboChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Memo1DblClick(Sender: TObject);
    end;

var
    Form1: TForm1;

implementation

{$R *.DFM}

uses Registry;

var
    hPort: THandle;

procedure TForm1.Memo1Change(Sender: TObject);
var
    i: Integer;
begin
    Edit1.Text := '';
    for i := 1 to Length(Memo1.Text) do
  Edit1.Text := Edit1.Text + Format('%x', [Ord(Memo1.Text[i])]) + ' '
end;

procedure TForm1.Memo2Change(Sender: TObject);
var
    i:
Integer;
begin
    Edit2.Text := '';
    for i := 1 to Length(Memo2.Text) do
  Edit2.Text := Edit2.Text + Format('%x', [Ord(Memo2.Text[i])]) + ' '
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    S, D: array[0..127] of Char;
    actual_bytes: Integer;
    DCB: TDCB;
begin

    FillChar(S, 128, #0);
    FillChar(D, 128, #0);

    DCB.DCBlength := SizeOf(DCB);

    if not GetCommState(hPort, DCB) then begin
  ShowMessage('Can''t get port state: ' + IntToStr(GetLastError));
  Exit;
    end;

    try
  DCB.BaudRate := StrToInt(BaudCombo.Text);
    except
  BaudCombo.Text := IntToStr(DCB.BaudRate);
    end;

    try
  DCB.ByteSize := StrToInt(ByteSizeCombo.Text);

   except
  ByteSizeCombo.Text := IntToStr(DCB.ByteSize);
!
    end;

    if ParityCombo.ItemIndex > -1 then
  DCB.Parity := ParityCombo.ItemIndex
    else
  ParityCombo.ItemIndex := DCB.Parity;

    if StopBitsCombo.ItemIndex > -1 then
  DCB.StopBits := StopBitsCombo.ItemIndex
    else
  StopBitsCombo.ItemIndex := DCB.StopBits;

    if not SetCommState(hPort, DCB) then begin
  ShowMessage('Can''t set new port settings: ' + IntToStr(GetLastError));
  Exit;
    end;

  PurgeComm(hPort, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or PURGE_RXCLEAR);

    StrPCopy(S, Memo1.Text);

    if not WriteFile(hPort, S, StrLen(S), actual_bytes, nil) then begin
  ShowMessage('Can''t write to port: ' + IntToStr(GetLastError));

 Exit;
    end;

    if not ReadFile(hPort, D, StrToInt(Edit3.Text), actual_bytes, nil) then
  ShowMessage('Can''t read from port: ' + IntToStr(GetLastError))
    else
  ShowMessage('Read ' + IntToStr(actual_bytes) + ' bytes');
    Memo2.Text := D;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    with TRegistry.Create do begin
  OpenKey('\Software\MBEM\Rosh Shkila', True);
  WriteString('Port', PortCombo.Text);
  WriteString('Baud Rate', BaudCombo.Text);
  WriteString('Byte Size', ByteSizeCombo.Text);
  WriteString('Parity', IntToStr(ParityCombo.ItemIndex));
  WriteString('Stop Bits', IntToStr(StopBitsCombo.ItemIndex));
  Destroy;
    end;
    if not CloseHandle(hPort) then begin
  ShowMessage('Can''t close port: '
+ IntToStr(GetLastError));
  Exit;
    end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
    hPort := CreateFile(PChar(PortCombo.Text),
              GENERIC_READ + GENERIC_WRITE,
              0,
              nil,
              OPEN_EXISTING,
              FILE_ATTRIBUTE_NORMAL,
              0);

    if hPort = INVALID_HANDLE_VALUE then
  ShowMessage('Can''t open ' + PortCombo.Text + ': ' + IntToStr(GetLastError))
    else
  Button2.Hide;
end;

procedure TForm1.PortComboChange(Sender: TObject);
begin
    FormDestroy(Sender);
    Button2.Show;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    with TRegistry.Create do begin
  OpenKey('\Software\MBEM\Rosh
Shkila', True);
  PortCombo.Text := ReadString('Port');
 !
 BaudCombo.Text := ReadString('Baud Rate');
  ByteSizeCombo.Text := ReadString('Byte Size');
  ParityCombo.ItemIndex := StrToInt(ReadString('Parity'));
  StopBitsCombo.ItemIndex := StrToInt(ReadString('Stop Bits'));
  Destroy;
    end;
end;

procedure TForm1.Memo1DblClick(Sender: TObject);
begin
    Memo1.Lines.Clear;
    Memo2.Lines.Clear;
    Edit1.Text := '';
    Edit2.Text := '';
end;

end.


»»» peter - ppp_extr@chat.ru (03.07.00 09:05)
Пример вывода текста на печать используя ком порт

Var
  Printer: THandle;
  N      : Cardinal;
  C      : POverlapped;

begin
//Открываем порт принтера для записи
Printer := CreateFile(PChar('LPT1'),
           GENERIC_READ
or GENERIC_WRITE,0,nil,
           OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);

//!
Печатаем слово 'Hello World';
WriteFile(Printer,'Hello World',11,N,c);
//Закрываем порт
CloseHandle(Printer);

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Реализация PING с помощью ICMP API.
При работе в сети Интернет в некоторых случаях необходимо знать текущее состояние как локального, так и удаленных хостов (имеет ли локальный хост в данный момент возможность выхода в сеть Интеренет, доступен ли некий удаленный хост и т.д.)
Общеизвестно, что для указанных целей используется утилита ping. В данной статье описана реализация на Delphi возможностей этой программы с помощью ICMP API.
Новинки книжного рынка   |x|
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
Другие сайты о DELPHI   |x|
Adept
Большая база хорошо отсортированной справочной информации по Delphi и не только.
» Оценка сайта: 4
Опрос населения :)
Как часто вы заглядываете на наш сайт?
»»» Регулярно
»»» Раз в неделю
»»» Когда нужна помощь
»»» По почтовой рассылке
»»» Сделал стартовой страницей
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Бабочка в траве
Открывает тишину
Мира без меня.

Афоризмы
Если вы не меняете направления, то наверняка упретесь в тупик......

Фраза дня
Что может сделать женщина из ничего? Прическу, салатик и трагедию.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Миннесоте (США) вам грозит попасть в тюрьму за то, что вы спите голым.
В Аляске (США) запрещается (добавим -и не рекомендуется) будить медведей, чтобы их сфотографировать, а также, выбрасывать живых лосей из самолета.

И на закуску коротенький анекдот
- Доктоp, вы лечите боязнь откpытых пpостpанств?
- Конечно.
- А закpытых?
- Естественно...
- Видите ли, у моего сына и то, и дpугое....
- Аааа, думеpов мы не лечим...

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

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

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное