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

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

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 24.05.04 09:17 Лучшее из нашего FAQ |x| Текстовая печать из программы на Delphi (копия TMemo) >Одним из вариантов может быть запись необходимого текста в текстовый файл и посыл его на LPT1, но не получается. А что собственно не получается? Смотри ниже: procedure TEditForm.Printed; var Line: Integer; PrintText: System.Text; begin AssignPrn(PrintText); Rewrite(PrintText); Printer.Canvas.Font = Memo1.Font; for...

2004-05-24 09:15:52 + Комментировать

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

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 23.05.04 09:17 Лучшее из нашего FAQ |x| Мне нужно сделать такую прогу, которая будет работать как командная строка в windows2000. Только параметры для команды должны вводится в editы unit admin; interface uses Windows, Classes, syncobjs, SysUtils; type TConsole= class (TThread) private FWnd:THandle; FMsg:Cardinal; ChildStdInWr,ChildStdoutRd:THandle; FCS:TCriticalSection; FCommandList:TStringList; procedure ...

2004-05-23 09:16:20 + Комментировать

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

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 22.05.04 09:17 Лучшее из нашего FAQ |x| [InterBase+Delphi] Refresh Query > AlBit (28.07.00 16:17) К копоненту TQuery (реализованы кэшированные изменения при помощи TUpdateQuey) привязан TDBGrid и TDBNavigtor и все пекрасно работает, но при нажатии кнопки Refresh на навигаторе выскакивет ошибка "Table does not support this operation because it is not uniquely indexed. Таблица имеет первичный ключ и один допо...

2004-05-22 09:15:24 + Комментировать

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

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 18.05.04 09:05 Лучшее из нашего FAQ |x| Вообщем ситуация: нужно отправить созданное моей программой письмо по е-майлу независимо от юзера т.е. чтобы он не подозревал об отправке. Вот бы это на АПИ с примером! unit Email; interface uses Windows, SusUtils, Classes; function SendEmail( const RecipName, RecipAddress, Subject, Attachment: string: Boolean; function IsOnline: Boolean; implementation uses Mapi; fun...

2004-05-18 09:03:53 + Комментировать

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

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 17.05.04 09:05 Лучшее из нашего FAQ |x| Как вставить содержимое файла в текущую позицию курсора в компонете TMemo? Считайте файл в TMemoryStream, затем ипользуйте метод TMemo SetSelTextBuf) для вставки текста; var TheMStream : TMemoryStream; Zero : char; begin TheMStream = TMemoryStream.Create; TheMStream.LoadFromFile'C\AUTOEXEC.BAT); TheMStream.Seek(0, soFromEnd); // Null terminate the buffer! Zero = #0; T...

2004-05-17 09:04:02 + Комментировать

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

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 15.05.04 09:05 Кое-что из нашей кладовки |x| Использование моделей из Quake3 Jan Horn jhorn@global.co.za (29.11.01 12:29) Программа отображает персонажей в различных позициях и движении, используя quake 3 model files .MD3) Есть описание формата .MD3 > Скачать: исходные тексты (746кб) демонстрационный EXE файл (819кб) посмотреть скриншот Die,Sllights,Die 2 Heck Mr.Ozz@list.ru (22.02.04 22:55) Программа убива...

2004-05-15 09:03:47 + Комментировать

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

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 14.05.04 09:05 Кое-что из нашей кладовки |x| Die,Sllights,Die 2 Heck Mr.Ozz@list.ru (22.02.04 22:55) Программа убивающая ошибку "Sllights" в OC Windows любой версии! УСТАНОВКА: Скинте прогу в папку windows и запустите! > Скачать: исходные тексты (3кб) Лучшее из нашего FAQ |x| Как добится того чтобы TMemo и TEdit имели работали не только в режиме вставки символов, но и в режиме замены? Элементы управления Wi...

2004-05-14 09:04:22 + Комментировать

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

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 13.05.04 09:05 Лучшее из нашего FAQ |x| Как получить список файлов со всеми подкаталогами procedure ScanDir(StartDir: string; Mask:string; List:TStrings); var SearchRec : TSearchRec; begin if Mask = ' then Mask = '; if StartDir[Length(StartDir] ' then StartDir = StartDir + '; if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then begin repeat Application.ProcessMessages; if (SearchRec.Attr and faDirecto...

2004-05-13 09:03:58 + Комментировать

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

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 12.05.04 09:05 Лучшее из нашего FAQ |x| Как загрузить и отмасштабировать JPEGImage в TImage Image1.Picture.Graphic = nil; try Image1.Picture.Graphic = nil; Image1.Picture.LoadFromFile(jpegfile); except on EInvalidGraphic do Image1.Picture.Graphic = nil; end ; if Image1.Picture.Graphic is TJPEGImage then begin TJPEGImage(Image1.Picture.Graphic.Scale = Self.Scale; TJPEGImage(Image1.Picture.Graphic.Performance...

2004-05-12 09:04:01 + Комментировать

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

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 11.05.04 09:05 Лучшее из нашего FAQ |x| Как вызвать процедуру из чужого ЕХЕ файла > Dima (08.07.00 20:35) Проблема такая : на сервере стоит ЕХЕ-файл, написан на FoxPro. И как класс зарегистрирован в системном реестре. Есть описание его процедур ( название, параметры. Существует ли возможность на Delphi обратиться к процедурам и заставить их сработать. > Шевелев Дмитрий - maestro@bashneft.ru (21.07.00 13:07)...

2004-05-11 09:04:16 + Комментировать