Отправляет 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
31
Автор
Сергей

Статистика

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

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


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

DELPHI.mastak.ru

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

Обновился дайджест по FAQ. Скачать можно здесь
Вышел очередной дайджест форумов. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • примерчик unit - myprog.zip небольшие, но полезные функции gorohov grandad@rambler.ru   (13.01.02 16:06)
    function CurrentFileInfo(NameApp : string) : string;
    function WinExecAndWait(FileName:String; Visibility : integer) : integer;
    function Zapusk( cmdline:String) : boolean;
    // пустая таблица ???
    Function MyEmptySet(inSet:TDataSet):boolean;
    //вывод данных в Word
    procedure WordInsertText(Text: string);
    //процедура поиска закладок в документе WORD и перехода по ним
    procedure WordInsertFile(Text: string);
    // вставка файла
    procedure WordRunMacros(rmacros: string);
    procedure WordGotoBookmark(rBookmark: string);
    procedure WordDeleteBookmark(rBookMark: string);
    {Поиск значения в колонке таблици Функция требует на входе аргумент
    типа TTable (например, Table1), что ищем, имя поля где ищем.
    Возвращает номер первого символа или ноль}
    function Isk( oTable: TTable;var Istr:String; var Pstr:String) : integer;
    // удаление файлов
    procedure Fdelete( fname:String);
    Function GetProgramDir():string;
    function GetUserName:string;
    За END. пример работы с WORD при помощи этих фукций.
    »»» Скачать: исходные тексты посмотреть скриншот
  • примерчик unit - myprog.zip небольшие, но полезные функции gorohov grandad@rambler.ru   (13.01.02 16:05)
    function CurrentFileInfo(NameApp : string) : string;
    function WinExecAndWait(FileName:String; Visibility : integer) : integer;
    function Zapusk( cmdline:String) : boolean;
    // пустая таблица ???
    Function MyEmptySet(inSet:TDataSet):boolean;
    //вывод данных в Word
    procedure WordInsertText(Text: string);
    //процедура поиска закладок в документе WORD и перехода по ним
    procedure WordInsertFile(Text: string);
    // вставка файла
    procedure WordRunMacros(rmacros: string);
    procedure WordGotoBookmark(rBookmark: string);
    procedure WordDeleteBookmark(rBookMark: string);
    {Поиск значения в колонке таблици Функция требует на входе аргумент
    типа TTable (например, Table1), что ищем, имя поля где ищем.
    Возвращает номер первого символа или ноль}
    function Isk( oTable: TTable;var Istr:String; var Pstr:String) : integer;
    // удаление файлов
    procedure Fdelete( fname:String);
    Function GetProgramDir():string;
    function GetUserName:string;
    За END. пример работы с WORD при помощи этих фукций.
    »»» Скачать: исходные тексты посмотреть скриншот
  • примерчик unit - myprog.zip небольшие, но полезные функции gorohov grandad@rambler.ru   (13.01.02 16:03)
    function CurrentFileInfo(NameApp : string) : string;
    function WinExecAndWait(FileName:String; Visibility : integer) : integer;
    function Zapusk( cmdline:String) : boolean;
    // пустая таблица ???
    Function MyEmptySet(inSet:TDataSet):boolean;
    //вывод данных в Word
    procedure WordInsertText(Text: string);
    //процедура поиска закладок в документе WORD и перехода по ним
    procedure WordInsertFile(Text: string);
    // вставка файла
    procedure WordRunMacros(rmacros: string);
    procedure WordGotoBookmark(rBookmark: string);
    procedure WordDeleteBookmark(rBookMark: string);
    {Поиск значения в колонке таблици Функция требует на входе аргумент
    типа TTable (например, Table1), что ищем, имя поля где ищем.
    Возвращает номер первого символа или ноль}
    function Isk( oTable: TTable;var Istr:String; var Pstr:String) : integer;
    // удаление файлов
    procedure Fdelete( fname:String);
    Function GetProgramDir():string;
    function GetUserName:string;
    За END. пример работы с WORD при помощи этих фукций.
    »»» Скачать: исходные тексты посмотреть скриншот
  • примерчик unit - myprog.zip небольшие, но полезные функции gorohov grandad@rambler.ru   (13.01.02 16:03)
    function CurrentFileInfo(NameApp : string) : string;
    function WinExecAndWait(FileName:String; Visibility : integer) : integer;
    function Zapusk( cmdline:String) : boolean;
    // пустая таблица ???
    Function MyEmptySet(inSet:TDataSet):boolean;
    //вывод данных в Word
    procedure WordInsertText(Text: string);
    //процедура поиска закладок в документе WORD и перехода по ним
    procedure WordInsertFile(Text: string);
    // вставка файла
    procedure WordRunMacros(rmacros: string);
    procedure WordGotoBookmark(rBookmark: string);
    procedure WordDeleteBookmark(rBookMark: string);
    {Поиск значения в колонке таблици Функция требует на входе аргумент
    типа TTable (например, Table1), что ищем, имя поля где ищем.
    Возвращает номер первого символа или ноль}
    function Isk( oTable: TTable;var Istr:String; var Pstr:String) : integer;
    // удаление файлов
    procedure Fdelete( fname:String);
    Function GetProgramDir():string;
    function GetUserName:string;
    За END. пример работы с WORD при помощи этих фукций.
    »»» Скачать: исходные тексты посмотреть скриншот
  • примерчик unit - myprog.zip небольшие, но полезные функции gorohov grandad@rambler.ru   (13.01.02 16:02)
    function CurrentFileInfo(NameApp : string) : string;
    function WinExecAndWait(FileName:String; Visibility : integer) : integer;
    function Zapusk( cmdline:String) : boolean;
    // пустая таблица ???
    Function MyEmptySet(inSet:TDataSet):boolean;
    //вывод данных в Word
    procedure WordInsertText(Text: string);
    //процедура поиска закладок в документе WORD и перехода по ним
    procedure WordInsertFile(Text: string);
    // вставка файла
    procedure WordRunMacros(rmacros: string);
    procedure WordGotoBookmark(rBookmark: string);
    procedure WordDeleteBookmark(rBookMark: string);
    {Поиск значения в колонке таблици Функция требует на входе аргумент
    типа TTable (например, Table1), что ищем, имя поля где ищем.
    Возвращает номер первого символа или ноль}
    function Isk( oTable: TTable;var Istr:String; var Pstr:String) : integer;
    // удаление файлов
    procedure Fdelete( fname:String);
    Function GetProgramDir():string;
    function GetUserName:string;
    За END. пример работы с WORD при помощи этих фукций.
    »»» Скачать: исходные тексты посмотреть скриншот
  • примерчик unit - myprog.zip небольшие, но полезные функции gorohov grandad@rambler.ru   (13.01.02 16:02)
    function CurrentFileInfo(NameApp : string) : string;
    function WinExecAndWait(FileName:String; Visibility : integer) : integer;
    function Zapusk( cmdline:String) : boolean;
    // пустая таблица ???
    Function MyEmptySet(inSet:TDataSet):boolean;
    //вывод данных в Word
    procedure WordInsertText(Text: string);
    //процедура поиска закладок в документе WORD и перехода по ним
    procedure WordInsertFile(Text: string);
    // вставка файла
    procedure WordRunMacros(rmacros: string);
    procedure WordGotoBookmark(rBookmark: string);
    procedure WordDeleteBookmark(rBookMark: string);
    {Поиск значения в колонке таблици Функция требует на входе аргумент
    типа TTable (например, Table1), что ищем, имя поля где ищем.
    Возвращает номер первого символа или ноль}
    function Isk( oTable: TTable;var Istr:String; var Pstr:String) : integer;
    // удаление файлов
    procedure Fdelete( fname:String);
    Function GetProgramDir():string;
    function GetUserName:string;
    За END. пример работы с WORD при помощи этих фукций.
    »»» Скачать: исходные тексты посмотреть скриншот
  • Chat Lamokk lamok@rambler.ru   (13.01.02 00:21)
    Тут люди попросили чат им сделать, начал было делать а у них оборудование
    дернули поэтому чат не полный (дополнительные функции не сделаны)
    но все основное работает вроде!! Если че то не работает пишите!!!
    Дополнительные функции возможно будут потом !!!
    »»» Скачать: исходные тексты (10кб)
Лучшее из нашего FAQ   |x|
CGI. Переменные окружения - как до них добраться?
»»» Laberta - labert@mail.ru (28.11.00 22:15)
Как получить значения переменных окружения в Delphi 3 ? (Нужно для выяснения параметров HTTP запроса в CGI-приложении)

»»» bob (29.11.00 09:03)
Если я правильно понял вопрос, то (взято из книги Marco Cantu 1998, Mastering Delphi 4)

program CgiVars;

{$APPTYPE CONSOLE}
uses Windows;
const
  VarList: array [1..17] of string [30] =
    ('SERVER_NAME', 'SERVER_PROTOCOL',
    'SERVER_PORT', 'SERVER_SOFTWARE',
    'GATEWAY_INTERFACE', 'REQUEST_METHOD',
    'PATH_TRANSLATED', 'HTTP_REFERER',
    'SCRIPT_NAME', 'PATH_INFO',
    'QUERY_STRING', 'HTTP_ACCEPT',
    'REMOTE_HOST', 'REMOTE_USER',
    'REMOTE_ADDR', 'REMOTE_IDENT',
    'HTTP_USER_AGENT');

var
  I: Integer;
  ReqVar: string;
  VarValue: array [0..200] of Char;

begin
  writeln('Contenttype: text/html');
  writeln;
  writeln('<HTML><HEAD>');
  writeln('<TITLE>CGI Variables</TITLE>');
  writeln('</HEAD><BODY>');
  writeln('<H1>CGI Variables</H1>');
  writeln('<HR><PRE>');

  // show the variables listed in the array
  for I := Low (VarList) to High (VarList) do
  begin
    ReqVar := VarList[I];
    if (GetEnvironmentVariable (PChar(ReqVar),
        VarValue, 200) > 0) then
    else
      VarValue := '';
    writeln (VarList[I] + ' = ' + VarValue);
  end;
  writeln('</pre></BODY></HTML>');
end.


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

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Устройство Windows. Процессы, потоки и функции ShellExecute и WinExec. Часть 1.
По просьбам общественности и была написана эта статья. Действительно невозможно профессионально разрабатывать многопоточные программы, не зная, что такое процессы, потоки, нити и синхронизация (надеюсь посвятить этому одну из следующих статей) и, не представляя, как они работают. В статье за основу взята операционная система Windows 2000. Так же в этой статье будут подробно рассмотрены различные методы запуска новых процессов (программ).
Новинки книжного рынка   |x|
Delphi 5 для профессионалов
Эта книга поможет вам овладеть программированием в Delphi, включая язык Object Pascal, компоненты Delphi (как работу с существующими компонентами, так и разработку ваших собственных), поддержку баз данных и приложений клиент/сервер, базовые элементы программирования в среде Windows и разработку COM-приложений, а также Web-программирование. Для чтения этой книги нет необходимости в глубоких знаниях какой-либо из этих тем, но что вам действительно понадобится — это основы программирования на Паскале.
Автор: М. Кэнту
Другие сайты о DELPHI   |x|
NiaSoft
Разные проги сделаные на Delphi и BP7.
Хотя сайтик пока немного не доделан. :0(
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Ваше мнение, нужен ли он вообще?
»»» Да
»»» Нет
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Разлука... -
Кепкою машу
Подножьям алых гор.

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

Фраза дня
Рожденный ползать, уйди со взлетной полосы!!!

И на закуску коротенький анекдот
Знаете ли вы что:
... если вы будете считать по две овцы сразу, то уснете в два раза быстрее.

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

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

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