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

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

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

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

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

←   Сентябрь 2002   →
 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
Автор
Сергей

Статистика

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

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


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

DELPHI.mastak.ru

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

Обновился дайджест по FAQ. Скачать можно здесь
Вышел очередной дайджест форумов. Скачать можно здесь
Новые компоненты   |x|
  • TXMLSerializer v.1.2 (15kb) (02.09.02 08:25)
    С помощью XML Serializer для Delphi вы можете сохранить/загрузить любой собственный класс на диске / с диска [видимо, имеется в виду состояние объекта], передав его как параметр компоненту TXMLSerializer. Работает с классами, имеющими в предках TPersistent. Данная версия поддерживает сохранение нескольких объектов.

    Новая версия компоненты
    С исходными текстами
    Компонента из раздела: Tools: Tools
    Источник: www.torry.net   Автор: JWB Software http://people.zeelandnet.nl/famboek/
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • TICQClient v.1.16 (151kb) (02.09.02 08:22)
    Delphi компонент, поддерживающий часть протоколов ICQ v.8 (который использован в ICQ2002a):
    - Логин на сервер и измененние статуса
    - Управление списком контактов
    - Сообщения
    - Поиск пользователей (по UIN, Email, Имени)
    - 'White pages'
    - Получение информации о пользователе
    - Сохранение информации о пользователе
    - Регистрация нового UIN и удаление имеющегося
    - Изменение пароля
    - Поддержка автоматического перехода в away
    - Поддержка прямого соединения
    - Поддержка посылки/приема контакт-листа
    - Список пришедших/отправленных сообщений
    - Импорт сообщений, url'ов, контактов и информации о пользователе (включаю пароль) для ICQ 2000x, 2001x, 2002a
    - Поддержка SOCKS4 и SOCKS5 прокси
    - Помощь на английском и русском языках

    Новая версия компоненты
    С исходными текстами
    Компонента из раздела: Internet: Other
    Источник: www.torry.net   Автор: Alex Demchenko http://www.cobans.net
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • KeyLed v.1.1 (4kb) (02.09.02 08:15)
    Компонент для получения и установки состояния лампочек CapsLock, NumLock, ScrollLock.

    Новая версия компоненты
    С исходными текстами
    Компонента из раздела: System: Keys and Keyboard
    Источник: www.torry.net   Автор: Winsoft Ltd http://www.winsoft.sk/
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • PReport v.1.7.2 (2008kb) (02.09.02 08:13)
    PReport - библиотека предназначенная для генерации отчетов. Она написана на Object Pascal, может быть использована с Borland Delph 4-6 и Borland C++ Builder 5.
    Поддерживается большинство возможностей, предоставляемых аналогичными генераторами отчетов: FastReport, ReportBuilder, QuickReport однако есть отличительные, уникальные черты.
    PReport может быть использован не только для генерации стандартных графических Windows отчетов, но и для генерации текстовых отчетов для последующей печати на матричных принтерах.

    [Очень хороший генератор отчетов, но теперь, к сожалению, без исходных текстов (поставлялись только до версии 1.6)]

    Новая версия компоненты
    Компонента из раздела: Reports: Report Enhancements
    Источник: www.torry.net   Автор: Alexander Manuzin http://www.vtktools.ru
    -= · VCL · DB-aware · =- [Перевел: Сергей Касаткин]
  • ShellLinker v. 2.0.0 (232Kb) (02.09.02 08:07)
    Модуль, позволяющий запросто создавать, читать и запускать ярлыки (shell links (shortcuts)). Можно работать с ярлыками, указывающими на файлы, папки или виртуальные объекты (такие, как принтеры или системные папки).
    Поддерживается установка/чтение всех свойств ярлыка, таких как параметры, иконка, горячая клавиша, режим отображения окна.
    Имеется скомпилированный демо-пример.
    Не работает с D2.

    С исходными текстами
    Источник: www.delphipages.com   Автор: Troels Jakobsen http://www3.brinkster.com/troels/
    -= · Tools · Samples · =- [Перевел: Сергей Касаткин]
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Пример работы через OLE с Exel
Пример от Зимина Александра

// Маленькая процедурка -- на которой я тестировал вообще коннект к Excel
procedure TForm1.ButtonClick(Sender: TObject);
var
  Excel : Variant;
  WorkSheet : Variant;
  I, J  : Integer;
begin
  if OpenDialog.Execute then begin
    Excel := CreateOleObject( InputBox('OleStr', 'CreateOleObject', 
    'Excel.Application.8') );
    Excel.Visible := False;
    Excel.Workbooks.Open( OpenDialog.FileName );
    WorkSheet := Excel.Workbooks[1].WorkSheets[1];
    ListView.Columns.Clear;
    ListView.Items.Clear;
    for I := 1 to WorkSheet.Cells.CurrentRegion.Columns.Count do

      ListView.Columns.Add.Caption := VarToStr( WorkSheet.Cells[1,I!
] );
    for I := 1 to WorkSheet.Cells.CurrentRegion.Rows.Count do 
     with ListView.Items.Add do begin
      Caption := VarToStr( WorkSheet.Cells[I,1] );
      for J := 2 to WorkSheet.Cells.CurrentRegion.Columns.Count do 
        SubItems.Add( VarToStr( WorkSheet.Cells[I,J] ));
    end;
    Excel.Workbooks.Close;
    Excel.Quit;
  end;
end;
 
{
 Кусочки из программы, которая читала Excel и кидала дату в SQL базу,
 Прога была одаптирована к конторской конкретике, поэтому целиком её
 кидать бессмысленно.
}
 
//Коннект... С простой мыслей о том что неизвесто с какой именно 
// версией объекта придется работать
procedure
TEnemaDM.ConnectToExcelServer(FileName: String);
var!

  Reg : TRegIniFile;
begin
  Reg := TRegIniFile.Create( 'SOFTWARE\');
  if (FileExists( FileName ))and 
     (UpperCase(ExtractFileExt( FileName )) = '.XLS' ) then try
    if VarIsEmpty( Excel ) then begin
      Excel := CreateOleObject( Reg.ReadString( 'Enema','Excel', 
       'Excel.Application.8' ));
    end else begin
      Excel.Workbooks.Close;
    end;
    Excel.Visible := False;
    Excel.Workbooks.Open( FileName );
  finally
    Reg.Free;
  end;
end;
 
procedure TEnemaDM.DisconnectExcelServer;
begin
  try
  
 try
      Excel.Quit;
    except
    !
end;
  finally
    VarClear( Excel );
  end;
end;
 

//Пример загрузки списка листов таблицы
// Ейный вызов MainForm.LoadLists(Excel.Workbooks[1] ); 
//  -- я предпологаю что открыт 1 файл...
procedure TMainForm.LoadLists(WorkBooks: Variant);
var
  I : Integer;
begin
  if not VarIsNull( WorkBooks ) then begin
    ExcelListBox.Items.Clear; // TComboBox
    for I := 1 to WorkBooks.WorkSheets.Count do begin
      ExcelListBox.Items.Add( VarToStr( WorkBooks.WorkSheets[I].Name ));
    end;
  end;
end;
 

// Сама процедура
загрузки перекачивает данные в некую хранимую процедуру
// Вызывалас!
ь как LoadExcel( Excel.Workbooks[1].WorkSheets[MainForm.CurrentList] )
procedure TEnemaDM.LoadExcel( WorkSheet : Variant );
var
  I : Integer;
  ErrorList : TStrings;
begin
  with MainForm do try
    ErrorList := TStringList.Create;
    try
      for I := 1 to WorkSheet.Cells.CurrentRegion.Rows.Count do begin
        try
         ХранимаяПроцедура.ParamByName( параметр ).AsString :=
             VarToStr( 
           WorkSheet.Range[наименование региона в символах Excel. см Help].Cells[I,1] );
         ХранимаяПроцедура.ExecProc;
        except
          on E :
Exception do ErrorList.Add( GetErrorCurrentValue + 
         &nb!
sp;                #32 + E.Message );
        end;
      end;
      if ErrorList.Count = 0 then
         MessageDlg( 'Данные успешно успешно загружены' ,
     mtInformation, [mbOk], 0 )
      else
        ФормочкаДляОшибок.SetErrorList( ErrorList );
    finally
      ErrorList.Free;
    end;
  except
    on E : Exception do MessageDlg( E.Message, mtError, [mbOk], 0 );
  end;
end;


Коментарий от Yur Ovchinnikov (yur@sammit.kiev.ua)

  cls_ExcelObject := 'Excel.Application';
  regData := TRegistry.Create;
  regData.RootKey
:= HKEY_CLASSES_ROOT;
  try
    if regData.Op!
enKey('\Excel.Application\CurVer', False) then
     begin
      cls_ExcelObject := regData.ReadString('')
      regData.CloseKey;
     end
  finally
    regData.Free;
  end;

Это для того, чтобы не применять локальные для каждой версии названия "Excel.Application.8", "Excel.Application.9".
Ко всему прочему приведенный пример не работает с Excel95.

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Работа с локальной памятью потока (TLS)
В данной статье мы опишем так называемую локальную память потока (TLS, Thread Local Storage).
Многие алгоритмы, которые сейчас работают в составе Windows программ, были перенесены с операционной системы MS DOS. Но операционная сисмема MS DOS по своей сути является однопоточной. поэтому использование этих алгоритмов в многопоточной среде может вызвать проблемы. Одним из таких узких мест являтеся использование процедурами и функциями глобальных переменных.
Новинки книжного рынка   |x|
Delphi 6 и Kylix для программиста
В этой книге на практических примерах рассмотрены все возможности среды Delphi 6. Читательузнает, как создавать многоуровневые программы для работы с базами данных, Интернет-системы и сетевые распределенные приложения на основе технологий СОМ и CORBA. Рассмотрены механизмы преобразования XML-данных и приемы разработки служб WebServices. В большинстве случаев программист может обойтись визуальными средствами Delphi.Характер авторских работ С. Бобровского традиционно отличается тем, что они не только служат фундаментальными руководствами по новым технологиям программирования, но и представляют собой удобные справочники, полезные каждому программисту, независимо от уровня его подготовки.
Автор: Бобровский С.
Другие сайты о DELPHI   |x|
Полезно программисту
Вы программист, психолог или считаете себя философом? Заходите в гости на http://dushkin.boom.ru На сайте размещены ресурсы и полезные ссылки по программированию, психологии, философии и восточным ...
» Оценка сайта: 3
Опрос населения :)
Как вы нашли наш сайт?
»»» Поисковая система
»»» Рассылка
»»» Ссылка с другого сайта
»»» Через каталог сайтов
»»» Друг посоветовал
»»» Случайно
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
У статуи будды Амиды
Валяется пьяная гейша
Монах проходил-и тот не сдержался...

Афоризмы
Сам по себе муравей - существо мудрое, но саду он враг...(Ф.Бэкон)

Фраза дня
А все-таки она вертится!

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

И на закуску коротенький анекдот
Сегодня возле Мадагаскара потерпел крушение российский рыболовный траулер "Непотопляемый". Команда, пьянствовавшая во Владивостоке, не пострадала.

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

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

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