Друзья
Друзья


Олимпиада

UBPFD *********** by delphibase

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Сохранение данных из ListView в *.xls

Сохранение данных из ListView в *.xls

Зависимости: ComObj
Автор: dDan, Этот e-mail адрес защищен от спам-ботов, для его просмотра у Вас должен быть включен Javascript
Copyright: dDan
Дата: 3 декабря 2003 г.
***************************************************** }

procedure ListToExcel(ListView: TListView);
var
row, i: integer;
Range, Sheet: VAriant;
begin
try
Excel := CreateOleObject('Excel.Application');
except
raise Exception.Create('Невозможно поключиться к серверу Excel');
end;
Screen.Cursor := crHourGlass;
Excel.SheetsInNewWorkBook := 1;
Excel.WorkBooks.Add;
Sheet := Excel.Workbooks[1].Sheets[1];
Range :=...

Подробнее...

 

На этот раз речь пойдет о DirectShow

На этот раз речь пойдет о DirectShow. Для чего нам может понадобиться DirectShow?
DirectShow - это архитектура для воспроизведения, перехвата и обработки потоков мультимедиа. Звучит туманно? Поясняю - c помощью этого API можно:

проигрывать мультимедийные файлы различного формата, такие...

Подробнее...

 

Почему ACTIVEX и активные формы иногда не отображаются в INTERNET...

Почему ACTIVEX и активные формы иногда не отображаются в INTERNET EXPLORER? Все, что появляется, это .HTM-страница с пустым квадратом и красным "X" в нем.

Вероятно, при создании ActiveForm вы выбрали опцию лицензирования и не поместили .LIC-файл в ваш .OCX-файл.

Подробнее...

 

Работа в отдельном потоке которая не мешает основной программе Delphi

unit ThrdU;

interface

uses
Classes;

type
TTestThread = class(TThread)
private
Answer: integer;
protected
procedure GiveAnswer;
procedure Execute; override;
end;

implementation

uses SysUtils, Main;

{ TTestThread }

procedure TTestThread.GiveAnswer;
begin
MainForm.Edit1.Text := InttoStr(Answer);
end;

procedure TTestThread.Execute;
var
I: Integer;
begin
FreeOnTerminate := True;
for I := 1 to 2000000 do
begin
if Terminated then
Break;
Inc(Answer...

Подробнее...

 

В германских архивах найдены 3Dфильмы времён Третьего рейха В Мире РАЗНОЕ

Две получасовые киноленты 1936 года выпуска обнаружил режиссёр Филипп Мора, который снимает документальный фильм о роли «движущихся картинок» в нацистской пропаганде.

Найденные в Берлинском федеральном архиве чёрно-белые фильмы сняты на 35-миллиметровой плёнке -...

Подробнее...

 
Еще статьи...
Самое популярное
Яндекс.Метрика