Разделы сайта:

Новости сайта
Delphi.int.ru Expert
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
F.A.Q. (ЧаВО)
Рассылки сайта
Дружеств. сайты
Обратная связь
Каталог ссылок

Разделы рассылки:

Авторское слово
Delphi.int.ru Expert
Статья по Delphi
Файловый архив
Друзья
Юмор

Количество читателей рассылки (17.11.2006, 12:00):
5325+577=5902.

Текст вопроса:

Здравствуйте! Подскажите пожалуйста, где можно взять модуль для поддержи png-формата (графического).

Автор вопроса: Косолапов Дмитрий Юрьевич (статус: 2-ой класс)
Дата и время отправки вопроса: 13.08.2006, 11:15
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 13.08.2006, 12:56]:

Здравствуйте, Косолапов Дмитрий Юрьевич!
Смотрите вопрос № 79.
http://www.delphi.int.ru/expert/?step=info&subject=question&id=79.

Оценка за ответ: 5.

Текст вопроса:

Виталий Лещенко мне писал, что ето можно зднлать. А как, я так и не въехал. Объясните кто может.(или дайте кусок кода).

Приложение:

Это я к тому, что при добавлении можно отследить первую строчку "Обмен пакетами с www.mail.ru [194.67.57.26] по 32 байт:" и из нее "выдрать" ip. Это легко сделать т.к. он заключен в "[", "]". Для этого есть функция copy.

Автор вопроса: Наземнов Вячеслав (статус: Посетитель)
Дата и время отправки вопроса: 14.08.2006, 09:51
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Помфюк Владимир Степанович (статус: 6-ой класс), 14.08.2006, 10:35]:

Здравствуйте, Наземнов Вячеслав!
С помощью функции pos() Вы можете определить позицию символов [ и ] , а потом вырезать "с ... по ..." с помощью copy()
ip:=copy(fullStr,Pos('[',fullStr),Pos(']',fullStr)-Pos('[',fullStr));
Возможно где-то надо будет дописать +1 -1 чтобы [ и ] не попали в результат

2. [Отвечает: Виталий Лещенко (статус: 2-ой класс), 15.08.2006, 00:11]:

Здравствуйте, Наземнов Вячеслав!
Первое с чем следует разобраться это как Вы получаете этот текст в Memo...
Пусть у Вас есть некоторая функция которая возвращает эти строки. И пусть в перный раз она вернула строку:
"blah-blah [123.45.123.76] sdf dsf s"

тогда смотрим на код внизу...
эта программа выдирает из строки S текст заключенный в "[","]".
В Вашем случае там также находится IP.

Приложение:

var s: string; i, j: integer; begin s := 'blah-blah [123.45.123.76] sdf dsf s'; i := pos('[',s); j := pos(']',s); writeln(copy(s, i+1, j-i-1)); end.

Текст вопроса:

Доброе время суток, господа Программисты. Подскажите пожалуйста. У нас есть БД Access.
Допустим нам нужно найти телефон 15489.
Я пишу:(в прил. к вопр.).
Но, пока я не напишу полностью номер телефона ответа не будет.
А мне нужно чтобы я писал первые числа и мне выдавали ответ с номерами, которые начинаются на эти чифры. Заранее благодарен!!! Жду вашего ответа.

Приложение:

procedure TForm1.Edit1Change(Sender: TObject); begin if Length(Edit1.Text)>0 then ADOTable1.Filtered:=true else ADOTable1.Filtered:=false; ADOTable1.Filter:='Телефон='''+Edit1.Text+''''; end;

Автор вопроса: Stalker (статус: 1-ый класс)
Дата и время отправки вопроса: 14.08.2006, 16:44
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Помфюк Владимир Степанович (статус: 6-ой класс), 14.08.2006, 16:53]:

Здравствуйте, Stalker!
ADOTable1.Filter:='Телефон LIKE ''%'+Edit1.Text+'%''';

2. [Отвечает: MFred (статус: 1-ый класс), 15.08.2006, 13:10]:

Здравствуйте, Stalker!
Я этим кодом сам писал свой справочник.
Взято с http://delphiworld.narod.ru

Приложение:

procedure Edit1OnChange(...); var i: integer; begin if not updating then exit; {сделайте обновление где-нибудь еще - например при срабатывании таймера} updating := false; Table1.FindNearest([Edit1.text]); ListBox1.clear; i := 0; while (i < 5) and (not (table1.eof)) do begin listbox.items.add(Table1.fields[0].asString); inc(i); table1.next; end; listbox1.itemindex := 0; end;

Текст вопроса:

Доброе время суток, господа Программисты. Подскажите пожалуйста. Как написать сервис? Еще одна просьба, если можно. Можете написать о сервисе(форма или что-то другое, какие компаненты нужны, если нужны) в "Текст вопроса(без использования html-тегов)", а сам код, если нужен, в "Приложение к вопросу(фрагмент кода, выдержка из статьи и т.д.)" (а то. в прошлый раз дали ссылку, а я там ничего не понял) Заранее очень благодарен!!! Жду вашего ответа.

Автор вопроса: Stalker (статус: 1-ый класс)
Дата и время отправки вопроса: 15.08.2006, 00:29
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 3-ий класс), 15.08.2006, 08:25]:

Вот я набрал в Гугле "написание сервиса delphi" и получил немерянную кучу ссылок на статьи с примерами исходников. Какой смысл копировать их оттуда и вставлять сюда?

2. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 15.08.2006, 10:34]:

Здравствуйте, Stalker!
Начнем с того, что сервисы могут быть написанны на WinAPI, тогда они получаются маленькими и красивыми - подходит если не нужно ничего сложного.
И на VCL - от 300 kb и более. См. рецепт в приложении.
---
Статьи по теме:
01. www.delphiworld.narod.ru/base/services_work.html;
02. www.delphiworld.narod.ru/base/errs_manager.html;
03. www.delphiworld.narod.ru/base/delphi_services.html;

Приложение:

Оформить программу как сервис Windows NT (Win32 service) не составляет большого труда : создаем новое приложение File | New... | New | Service Application. Создается приложение с глобальной переменной Application типа TServiceApplication и объектом типа TService, который и реализует всю функциональность сервиса устанавливаем требуемые свойства объекта TService имя сервиса параметры запуска сервиса имя и пароль пользователя, от имени которого стартует сервис переписываем событие OnExecute объекта TService, в котором реализуем требуемую функциональность сервиса компилируем проект регистрируем созданный сервис на сервере Windows NT и запускаем Регистрация сервиса выполняется из командной строки следующим образом : ErrorMonitorService.exe /install Удаление сервиса : ErrorMonitorService.exe /uninstall Запуск сервиса выполняется из командной строки следующим образом : net start ErrorMonitor Останов сервиса : net stop ErrorMonitor Оформив эту последовательность команд как BAT-файл, можно значительно облегчить себе жизнь при отладке сервиса. Достаточно подробную информацию о сервисах Windows NT можно найти в книге : А.В.Фролов, Г.В.Фролов 'Программирование для Windows NT (часть вторая)', Москва, ДИАЛОГ-МИФИ, 1997

Текст вопроса:

Уважаемые эксперты!
Большое спасибо за помощь.
Есть ещё пара вопросов:
1. Как можно проиграть видеофильм с расширением .avi не используя стандартный медиаплеер делфи.
2. Как определить окончание проигрывания такого файла, чтобы убрать экран из формы.
Заранее благодарен.

Автор вопроса: Freger (статус: Посетитель)
Дата и время отправки вопроса: 15.08.2006, 13:49
Получено ответов на вопрос: 3
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: bruder (статус: 4-ый класс), 15.08.2006, 14:08]:

Здравствуйте, Freger!
Используй компоненты сторонних производителей. Обычно с ними идёт пример использования...

2. [Отвечает: MFred (статус: 1-ый класс), 15.08.2006, 15:54]:

Здравствуйте, Freger!
Насчет плеера не нечем помоч. Вот если пригодится пример инфы по AVI файлам.

Приложение:

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Type TForm1 = class(TForm) Memo1: TMemo; OpenDialog1: TOpenDialog; Button1: TButton; procedure Button1Click(Sender: TObject); Public procedure ReadAviInfo(FileName: String); End; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ReadAviInfo(FileName: String); var iFileHandle: Integer; // хэндл файла // Для позмционирования в AVI файле Aviheadersize: Integer; Vheadersize: Integer; Aviheaderstart: Integer; Vheaderstart: Integer; Aheaderstart: Integer; Astrhsize: Integer; // Временные переменные TempTest: String[5]; TempSize: Integer; TempVcodec: String[5]; TempAcodec: Integer; TempMicrosec: Integer; TempLengthInFrames: Integer; TempAchannels: Integer; TempAsamplerate: Integer; TempAbitrate: Integer; //Выходные данные Size: Double; Length: String; Vcodec: String; Vbitrate: Double; VWidth: Integer; VHeight: Integer; Fps: Double; LengthInSec: Double; Acodec: String; Abitrate: String; begin // Открываем iFileHandle := FileOpen(FileName, fmOpenRead); // Грубая проверка на подлинность файла FileSeek(iFileHandle, 7, 0); FileRead(iFileHandle, TempTest, 5); If copy(TempTest, 0, 4) <> 'AVI ' then begin MessageDlg('Could not open ' + FileName + ' because it is not a valid video file', mtError, [mbOk], 0); Exit; End; // Размер файла FileSeek(iFileHandle,4,0); FileRead(iFileHandle, TempSize, 4); // Размер хедера (needed To locate the audio part) FileSeek(iFileHandle,28,0); FileRead(iFileHandle, Aviheadersize, 4); // старт хедера (needed To locate the video part) Aviheaderstart := 32; // Милисекунды (1000000 / TempMicrosec = fps) FileSeek(iFileHandle,Aviheaderstart,0); FileRead(iFileHandle, TempMicrosec, 4); // Размер во фреймах FileSeek(iFileHandle,Aviheaderstart + 16,0); FileRead(iFileHandle, TempLengthInFrames, 4); // Ширина FileSeek(iFileHandle,Aviheaderstart + 32,0); FileRead(iFileHandle, VWidth, 4); // Высота FileSeek(iFileHandle,Aviheaderstart + 36,0); FileRead(iFileHandle, VHeight, 4); FileSeek(iFileHandle,Aviheaderstart + Aviheadersize + 4,0); FileRead(iFileHandle, Vheadersize, 4); Vheaderstart := Aviheaderstart + Aviheadersize + 20; // кодек FileSeek(iFileHandle,Vheaderstart + 3,0); FileRead(iFileHandle, TempVCodec, 5); Aheaderstart := Vheaderstart + Vheadersize + 8; FileSeek(iFileHandle,Aheaderstart - 4,0); FileRead(iFileHandle, Astrhsize, 5); // Audio codec FileSeek(iFileHandle,Aheaderstart + Astrhsize + 8,0); FileRead(iFileHandle, TempACodec, 2); // Audio каналы (1 = mono, 2 = stereo) FileSeek(iFileHandle,Aheaderstart + Astrhsize + 10,0); FileRead(iFileHandle, TempAchannels, 2); // Audio samplerate FileSeek(iFileHandle,Aheaderstart + Astrhsize + 12,0); FileRead(iFileHandle, TempAsamplerate, 4); // Audio bitrate FileSeek(iFileHandle,Aheaderstart + Astrhsize + 16,0); FileRead(iFileHandle, TempAbitrate, 4); // закрываем файл FileClose(iFileHandle); // анализируем видео кодек (можно добавить больше) Vcodec := copy(TempVcodec, 0, 4); If Vcodec = 'div2' then Vcodec := 'MS MPEG4 v2' Else If Vcodec = 'DIV2' then Vcodec := 'MS MPEG4 v2' Else If Vcodec = 'div3' then Vcodec := 'DivX;-) MPEG4 v3' Else If Vcodec = 'DIV3' then Vcodec := 'DivX;-) MPEG4 v3' Else If Vcodec = 'div4' then Vcodec := 'DivX;-) MPEG4 v4' Else If Vcodec = 'DIV4' then Vcodec := 'DivX;-) MPEG4 v4' Else If Vcodec = 'div5' then Vcodec := 'DivX;-) MPEG4 v5' Else If Vcodec = 'DIV5' then Vcodec := 'DivX;-) MPEG4 v5' Else If Vcodec = 'divx' then Vcodec := 'DivX 4' Else If Vcodec = 'mp43' then Vcodec := 'Microcrap MPEG4 v3'; // тоже с аудио Case TempAcodec of 0: Acodec := 'PCM'; 1: Acodec := 'PCM'; 85: Acodec := 'MPEG Layer 3'; 353: Acodec := 'DivX;-) Audio'; 8192: Acodec := 'AC3-Digital'; Else Acodec := 'Unknown (' + IntToStr(TempAcodec) + ')'; End; Case (Trunc(TempAbitrate / 1024 * 8)) of 246..260: Abitrate := '128 Kbit/s'; 216..228: Abitrate := '128 Kbit/s'; 187..196: Abitrate := '128 Kbit/s'; 156..164: Abitrate := '128 Kbit/s'; 124..132: Abitrate := '128 Kbit/s'; 108..116: Abitrate := '128 Kbit/s'; 92..100: Abitrate := '128 Kbit/s'; 60..68: Abitrate := '128 Kbit/s'; Else Abitrate := FormatFloat('# Kbit/s', TempAbitrate / 1024 * 8); End; // тут некоторые вычисления Size := TempSize / 1024 / 1024; Fps := 1000000 / TempMicrosec; // FPS LengthInSec := TempLengthInFrames / fps; // Length In seconds Length := FormatFloat('# min', Int(LengthInSec / 60)) + FormatFloat(' # sec', Round(LengthInSec - (Int(LengthInSec / 60) * 60))); Vbitrate := (TempSize / LengthInSec - TempABitrate) / 1024 * 8; // Выводим инфу в мемо Memo1.Lines.Add('AVI INFORMATION'); Memo1.lines.Add('Size: ' + FormatFloat('#.## MB',Size)); Memo1.Lines.Add('Length: ' + Length); Memo1.Lines.Add(''); Memo1.Lines.Add('VIDEO INFORMATION'); Memo1.Lines.Add('Codec: ' + Vcodec); Memo1.Lines.Add('Bitrate: ' + FormatFloat('# Kbit/s', Vbitrate)); Memo1.lines.Add('Width: ' + IntToStr(VWidth) + ' px'); Memo1.lines.Add('Height: ' + IntToStr(VHeight) + ' px'); Memo1.Lines.Add('FPS: ' + FormatFloat('#.##', fps)); Memo1.Lines.Add(''); Memo1.Lines.Add('AUDIO INFORMATION'); Memo1.Lines.Add('Codec: ' + Acodec); Memo1.Lines.Add('Bitrate: ' + Abitrate); End; procedure TForm1.Button1Click(Sender: TObject); begin If OpenDialog1.Execute Then ReadAviInfo(OpenDialog1.FileName); End; end. Взято из http://forum.sources.ru

3. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 16.08.2006, 11:43]:

Здравствуйте, Freger!
1. Скорее всего это не получится, т.к. .avi это только оболочка, а сами видеоданные могут быть кодированны разными кодерами и, соответственно для проигрывания нужны декодеры. Чем Вас не устраивает TMediaPlayer?
2. TMediaPlayer.OnNotify вызывается при любых событиях медиаплеера (пауза, остановка и т.д). Пример реакции на окончание воспроизведения см. в приложении.

Приложение:

procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin with Sender as TMediaPlayer do if NotifyValue = nvSuccessful then ShowMessage('Воспроизведение окончено!'); end;

Текст вопроса:

Можно ли изменить цвет MainMenu(Menus) с стандартного (серого) например на белый? В Object Inspector нет такой возможности. Подскажите пожалуйста, очень нужно. Спасибо.

Автор вопроса: Глушко Дмитрий Иванович (статус: Посетитель)
Дата и время отправки вопроса: 16.08.2006, 10:54
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 16.08.2006, 11:52]:

Здравствуйте, Глушко Дмитрий Иванович!
Вам нужно самому отрисовывать пункты меню.
См. хороший пример http://expert.delphi.int.ru/download_13.
Либо используйте сторонние компоненты (их полно), см. на torry.net;

2. [Отвечает: MFred (статус: 1-ый класс), 16.08.2006, 13:01]:

Здравствуйте, Глушко Дмитрий Иванович!
Вот в приложении пример который позволяет изменить цвет и не только.

Приложение:

procedure TForm1.FormCreate(Sender: TObject); var i, j:Integer; Menu: TMenu; begin for i := 0 to ComponentCount-1 do begin if (Components[i] is TMenu) then begin Menu := TMenu(Components[i]); for j := 0 to Menu.Items.Count-1 do SetDrawEvent(Menu.Items[j]); end; end; end; procedure TForm1.SetDrawEvent(MenuItem: TMenuItem); var i : integer; begin MenuItem.OnAdvancedDrawItem := DrawMenuItem; for i := 0 to MenuItem.Count-1 do SetDrawEvent(MenuItem.Items[i]); end; procedure TForm1.DrawMenuItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState); var rtText, rtIcon: TRect; clBackground,clSelectedBk, clFont: TColor; clDisabledFont, clSeparator, clSelectedBorder: TColor; t: integer; miParent: TMenuItem; Menu: TMenu; il:TCustomImageList; begin miParent := TMenuItem(Sender); Menu := miParent.Parent.GetParentMenu; // Çàäàåì öâåòà clBackground:= $00EFFFFF; clSelectedBk:=$00EAC8B7; clSelectedBorder:=$00C66931; clFont := clRed; clDisabledFont := clRed; clSeparator := $00D1D1D1; rtIcon:=aRect; rtIcon.Right:=rtIcon.Left+20; rtText:=aRect; rtText.Left:=rtIcon.Left+20; if ((miParent.Parent.GetParentMenu.Images <> nil) or (miParent.Parent.SubMenuImages <> nil)) and (miParent.ImageIndex <> -1) then if (miParent.Parent.SubMenuImages <> nil) then il:=miParent.Parent.SubMenuImages else il:=miParent.Parent.GetParentMenu.Images; aCanvas.Brush.Color := clBackground; aCanvas.FillRect(rtText); if (Menu is TMainMenu) then for i := 0 to miParent.GetParentMenu.Items.Count-1 do if (miParent.GetParentMenu.Items[i] = miParent) then begin aCanvas.Brush.Color := clBtnFace; aCanvas.FillRect(aRect); rtIcon.Right:=rtIcon.Left; if (miParent.ImageIndex = -1) and (miParent.Bitmap.Width = 0) then begin rtText := aRect; Break; end; end; if miParent.Enabled then aCanvas.Font.Color := clFont else aCanvas.Font.Color := clDisabledFont; if (odSelected in State) or (odHotLight in State) then begin aCanvas.Brush.Style := bsSolid; aCanvas.Brush.Color := clSelectedBk; aCanvas.Pen.Color := clSelectedBorder; aCanvas.Rectangle(ARect); end else begin aCanvas.Brush.Color := clBtnFace; aCanvas.FillRect(rtIcon); end; if not miParent.IsLine then begin SetBkMode(aCanvas.Handle,TRANSPARENT); if miParent.Default then begin aCanvas.Font.Color := clGray; aCanvas.TextOut(rtText.Left+1, rtText.Top+1, PChar(' '+ miParent.Caption)); end; if miParent.Enabled then aCanvas.Font.Color := clFont; aCanvas.TextOut(rtText.Left+2, rtText.Top+2, PChar(' ' + miParent.Caption)); aCanvas.TextOut(rtText.Right-2, aCanvas.TextWidth(ShortCutToText(miParent.ShortCut)+' ')+ rtText.Top+2, PChar(ShortCutToText(miParent.ShortCut) + ' ')); end; if (miParent.ImageIndex>=0) then else begin aCanvas.Pen.Color := clSeparator; aCanvas.MoveTo(ARect.Left + 10, rtText.Top + Round((rtText.Bottom - rtText.Top) /2)); aCanvas.LineTo(ARect.Right - 2, rtText.Top + Round((rtText.Bottom - rtText.Top) /2)) end; end; Взято http://www.rusfaq.ru

Текст вопроса:

Доброе время суток, Господа Программисты! Подскажите, пожалуйста! Вот я хочу написать сервис. В Дельфи создаю новый сервис(Сервис Арликатион). Сохраняю и запускаю, но он запускается и закрыватся. Я думаю, что нужно вставить куда-то цикл без выхода. Еще я знаю, что сервис нужно регить, что бы винда запускала его сама. Что мне надо сделать(цикл или что-то другое)? Ксажалению я мало встречал статей по созданю сервисов для Windows XP(только для NT).Подскажите ссылачку. Заранее благодарен!

Автор вопроса: Stalker (статус: 1-ый класс)
Дата и время отправки вопроса: 17.08.2006, 01:38
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 3-ий класс), 17.08.2006, 08:08]:

Вижу, что ты проигнорировал мой ответ на твой вопрос (№104). А ответ был такой:
"Вот я набрал в Гугле "написание сервиса delphi" и получил немерянную кучу ссылок на статьи с примерами исходников. Какой смысл копировать их оттуда и вставлять сюда?"

Вопрос: ПОЧЕМУ?

2. [Отвечает: Виталий Лещенко (статус: 2-ой класс), 17.08.2006, 08:46]:

Здравствуйте, Stalker!
Запусти свой приложение с ключом -install
Сервис пропишется в системе...

После этого делай net start ИмяСервиса
и он запустится...

Текст вопроса:

Как можно создать gif анимашку (больше 10 кадров) средствами Дельфи. (показываеш проге несколько картинок(jpg или bmp) и она создает анимашку из них.

Автор вопроса: Наземнов Вячеслав (статус: Посетитель)
Дата и время отправки вопроса: 18.08.2006, 15:27
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Евгений Козаченко (статус: 1-ый класс), 18.08.2006, 19:12]:

Здравствуйте, Наземнов Вячеслав!
Существует набор компенентов RXLib. В нем есть готовый компонент GifAnimator, который умеет работать с этим форматом изображений. В комплекте к набору компонентов идут примеры, в которых есть отдельная программа для создания гиф-анимации.

Оценка за ответ: 4.

Текст вопроса:

Доброго времени суток, уважаемые жители королевства!
Помогите, пожалуйста, решить такой вопрос. Я хочу экспортировать данные из таблички Excel в ADOTable.
Таблица представляет собой расстояния между точками (сбоку шапка и сверху шапка). Мне надо ввести данные таким образом:
Добавляются строчки(в Table) A2|B1|Значение
A2|C1|Значение
***
A3|B1|Значение
A3|C1|Значение
***
и т.д. (количество строк равно кол-ву столбцов)

Я пишу примено так: см фрагмент кода


Но почему-то не хочет.
Подскажите пожалуйста.

Приложение:

*** For i:=2 to 43 do {i-строки} begin for j:=2 to 43 do {j-столбцы} begin Rast.Insert; RastkeyNach.Text:=Sheet.Cells[1,i]; RastkeyKon.Text:=Sheet.Cells[j,1]; RastRast.Text:=Sheet.Cells[j,i]; end; end; ***

Автор вопроса: mitit (статус: Посетитель)
Дата и время отправки вопроса: 21.08.2006, 14:30
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Косолапов Дмитрий Юрьевич (статус: 2-ой класс), 21.08.2006, 21:38]:

Не хватает вызова метода post для таблицы:

Приложение:

Rast.Insert; RastkeyNach.Text:=Sheet.Cells[1,i]; {...} Rast.Post;

Оценка за ответ: 2.
Комментарий: Дело не в Post (это я знаю), но у меня выдаёт ошибку на следующей строке (RastkeyNach.Text:=Sheet.Cells[1,i]; )

Текст вопроса:

Добрый день.
Необходимо программно обрабатывать (выполнять) файлы (не ярлыки!) из папки SendTo, напр.:
SendTo\Desktop (create shortcut).DeskLink

Буду благодарен за любую помощь.

Автор вопроса: mik (статус: Посетитель)
Дата и время отправки вопроса: 22.08.2006, 18:33
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Новаковский Юрий Аврамович (статус: 2-ой класс), 23.08.2006, 14:19]:

Здравствуйте, mik!
Непонятно какие файлы кроме ярлыков могут быть
в папке SendTo, эта папка нужна для работы пункта
меню "Отправить в ...".
Уточните вопрос.

Приложение:

Фрагмент справки WinXP Чтобы добавить пункт назначения в меню «Отправить» Откройте папку Мой компьютер. Дважды щелкните значок диска, на котором установлена система Windows (если на компьютере только один диск, то обычно это диск C). Если после открытия диска на нем не показано ни одного элемента, щелкните в группе Типичные системные задачи ссылку Отображать содержимое этого устройства. Дважды щелкните папку Documents and Settings. Дважды щелкните папку нужного пользователя. Дважды щелкните папку SendTo. Папка SendTo по умолчанию является скрытой. Если она не видна, выберите в меню Сервис команду Свойства папки. На вкладке Вид выберите вариант Показывать скрытые файлы и папки. В меню Файл выберите команду Создать, а затем — команду Ярлык. Следуйте указаниям, появляющимся на экране. Примечание Чтобы открыть окно «Мой компьютер», дважды щелкните значок Мой компьютер на рабочем столе.

:))