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

Delphi - проблемы и решения

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 26.246 RSS
←   Январь 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


За последние 60 дней 2 выпусков (1-2 раза в 2 месяца)


Сайт рассылки: http://www.interface.ru, www.itshop.ru
Открыта: 16-01-2001
Адрес автора: comp.soft.win.mydelphi-owner@subscribe.ru

Автор
Сергей

Статистика

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

Проблемы и решения в Delphi #44


Служба Рассылок Subscribe.Ru

5750 подписчиков.

Проблемы и решения в Delphi - выпуск 44 от 24.01.2002.



* ВСЕ ВОПРОСЫ * * СПРОСИТЬ * * ПРЕДЛОЖИТЬ * * АРХИВЫ * * СКОЛЬКО НАС *


Доброго Вам времени суток уважаемый читатель.
Специально для земляков!Появилась новая рассылка: 'Комсомольск на Амуре OFFLine', ее код - country.fareast.kmsoffl . Для наших краев это... ну... очень неплохо :-)) . Подпишитесь - не пожалеете!




Как обычно в выпуске:

1. Очередные вопросы.
 2. Отвеченные вопросы.

* ВСЕ ВОПРОСЫ * * СПРОСИТЬ * * ПРЕДЛОЖИТЬ * * АРХИВЫ * * СКОЛЬКО НАС *

1. Очередные вопросы.
Вопрос 644:
От: Dmitriy Kuryshev
 
Работаю с базами при помощи компонетов Apollo VCL 5.2 (для базы не
нужен BDE).
С ApolloTable все понятно, все работает. А в ApolloQuery никак не
удается выполнить SQL запрос (он нужен для показа двух связанных
таблиц в Grid'e). Не выходит выполнить запрос даже при использовании
одной таблицы. Постоянно выскакивает ошибка, причем, неизвестная -
ничего не написанно, цитирую: Project Project2.exe raised exception
class EApolloQueryError with messaqe ". Process stoped. Use step or Run
continue. .
procedure TForm1.Button1Click(Sender: TObject);
begin
GetDir(0,s);
ApolloQuery1.DatabaseName:=s;
ApolloQuery1.TableNames[0].Alias:='rab';
ApolloQuery1.TableNames[0].TableName:='testnew.dbf';
ApolloQuery1.sql.Text:='select * from "testnew.dbf" rab';
ApolloQuery1.Active:=true;
end;
sa

Ответить.


Попробуй так:

Вопрос 645:
От: Vadim Kataev
 
Как в Дельфях написать простейший браузер аштимээлок (из урл и из
филесов)?
sa

Ответить.


Попробуй так:

Вопрос 646:
От: Vladimir Milukov
 
В Delphi 3 я пользовался весьма удобной компонентой DBScroll.
Не могу найти этой компоненты для Delphi 4.... 6. Если есть полезные
ссылки, прошу поделится.
sa

Ответить.


Попробуй так:

Вопрос 647:
От: Horreap
 
Я пишу программу, которая перехватывает нажатие всех клавиш в системе
и при нажатие на определённую клавишу выполняет некоторое действие.
У меня такой вопрос: как сделать, чтобы программа реагировала на
клавиши нажатые с alt-ом или ctrl-ом?
sa

Ответить.


Попробуй так:

Вопрос 648:
От: Nikolay K
 
Хочется, аналогично Explorer-у, вызывать приложения для обработки
файлов, в
зависимости от расширения и пользуясь данными Explorer-а из реестра.
Вопрос:
Как обращаться к приложениям, использующим DDE, а именно как применять в
компонентах Delphi данные из полей Explorer-а: "Сообщение DDE",
"Приложение DDE
не выполняется" и "Документ"?
sa

Ответить.


Попробуй так:

Вопрос 649:
От: Wasya Krasyk
 
 
Очень бы хотелось узнать ответы на два ВОПРОСА.
 
1.Как сохранить Canvas форми в BMP файл?
2.Как конвертнуть програмно BMP в GIF или JPG?
sa

Ответить.


Попробуй так:

Вопрос 650:
От: Dabadabiabo
 
 
Подскажите, можно ли открыть файл через HTTP
и работать с ним также как при открытии с диска?
Например, читать построчно с помощью Readln.
Если можно, то как?
sa

Ответить.


Попробуй так:

Вопрос 651:
От: Yan
 
Можно ли программно изменить langdriver в парадоксовской базе данных,
написанной еще под MS-DOS? Искал среди API-шных функций для BDE, но
ничего путного не накопал.
sa

Ответить.


Попробуй так:

Вопрос 652:
От: Андрей Андреевич Пономарев
 
У меня следующий вопрос:
как читать и писать в порты (com, lpt, и любые др.) в Дельфи?
Может кто-нибудь знает, как обратиться к шине ISA, чтобы попроще и по
функциональней? :)
sa

Ответить.


Попробуй так:

Вопрос 653:
От: Александр Хвалин
 
Как создать в системе свой виртуальный диск.
А так же потом отключить его.
На подобии того как получается при использовании команды SUBST.
sa

Ответить.


Попробуй так:

Вопрос 654:
От: Калашников Артур
 
Кто знает где в Internete можна скачать бесплатно
в электронном виде книгу:
Хендерсон Кен. Delphi 3 и системы клиент-сервер. Руководство
разработчика.: Пер. с англ. - К.: Диалектика, 1997. - 786 с. .
sa

Ответить.


Попробуй так:



* ВСЕ ВОПРОСЫ * * СПРОСИТЬ * * ПРЕДЛОЖИТЬ * * АРХИВЫ * * СКОЛЬКО НАС *

2. Отвеченные вопросы.
Вопрос 631:
От: Турейский Геннадий Алексеевич
 
Как читать и писать в порты?
Причем делать это надо под Windows 2000.
Вставка asm и команды ассемблера IN и OUT дают ошибку
выполнения привелигированных команд.sa

Ответить.

Попробуй так:

  В winNT&Win2k писать в порты на прямую нельзя. Воспользуйте 
 сь winAPI.
  Очень хорошая серия статей по этому предмету есть на "Королевстве
  Delphi"
  http://www.delphikingdom.com/mastering/ports1.htm
  http://www.delphikingdom.com/mastering/ports2.htm
  http://www.delphikingdom.com/mastering/ports3.htm
  http://www.delphikingdom.com/mastering/ports4.htm
  http://www.delphikingdom.com/mastering/ports5.htm

Вопрос 632:
От: vfinup.obladm.msk.su!vvv@vfinup.obladm.msk.su
 
ТДВ> Рекомендую APD. Там всё есть и с приличными примерами:'
А что такое APD и где его нарыть?sa

Ответить.

Попробуй так:

Вопрос 633:
От: Alexander Galaktionov
 
как можно считать из базы данных
BLOB-поле, для этого в MS Visual FoxPro есть OLE, а в дельфи нет
компоненты DBOLE. Как можно разрешить эту проблему.sa

Ответить.

Попробуй так:

нужно сначала сохранить его в файле SaveToFile(filename), а п 
 отом юзать этот файл
Попробуй так:

В Делфях есть такой класс TBlobField. Который очень подробно описан в
справке.
Попробуй так:

TBlobField объект имет свойство savetostream через
которое можно загнать данные в поток и делать что
хочешь, или можно сделать на прямую assign. Примеры:

(Table1.fieldbyname('MyField') as
TBlobField).savetostream(MyStream);

Image.picture.bitmap.assign(Query1.fieldbyname('MyField'));
Попробуй так:

можно так

begin
  Table1.Active:=true;
TBlobField(TTable1.FieldByname('BLOBPOLE')).SaveToFile('имя файла');

Вопрос 634:
От: drunya
 
Как в Dеlphi работать с командами модема.sa

Ответить.

Попробуй так:

Если я правильно Вас понял речь идет об AT-командах.
Есть 2 
  пути: использовать готовый компонент или обращаться к порту
"напрямую" (конечно, через winAPI). Поскольку я сам сталкивался с
необходимостью работать с модемом настоятельно рекомендую пользоваться
компонентами. Например, MSComm (мелко-мягкое изделие в виде ActiveX).

Вопрос 635:
От: drunya
 
Как на Delphi написать программу, которая бы автоматически записывала
все входящие и исходящие телефонные разговоры.
Телефон подключен к модему.sa

Ответить.

Попробуй так:

Вопрос 636:
От: drunya
 
Какой функцией нужно пользоваться, чтобы определить поднята трубка
телефона или нет.sa

Ответить.

Попробуй так:

Вопрос 637:
От: drunya
 
Как  программно на Delphi определить какой номер набирается, если набор
номера происходит не на компе, а с телефонной трубки.sa

Ответить.

Попробуй так:

Вопрос 638:
От: Стас
 
Нет ли у кого опыта работы с SSH. Нужно написать программу которая-бы
конектилась на 22 порт и могла с ним разговаривать. Буду рад примерам.sa

Ответить.

Попробуй так:

Вопрос 639:
От: Shamashov
 
Как memo выводить массив,чтобы после каждого элемента был пробел?:sa

Ответить.

Попробуй так:

Вообще-то, стоило бы уточнить вопрос - он не совсем ясен. Но  
 если нужно вывести элементы массива в memo так, чтобы они разделялись пробелами, то вот
пример:
for i := k1 to k2 do
memo.Text := memo.Text + Ar[i] + ' ';
Попробуй так:

Или я вопроса не понял или это делается так:
перебераем элементы массива вставляя их в мемо и при этом прибавляем к ним пробел.

Вопрос 640:
От: Artur
 
кто знает!!! намыльте ссылку на (не архив) файл Fr_class.pas для
FastReport2.45 или сбросте на мыло artur_kabanov@mailru.comsa

Ответить.

Попробуй так:

Вопрос 641:
От: Таня
 
Как можно узнать, какие права конкретный пользователь имеет на сетевые
каталоги в сети Novell ?
В C-Builder вроде бы это можно сделать с помощью библиотеки NDK. Есть ли
какой-нибудь аналог для Delphi ?sa

Ответить.

Попробуй так:

на сайте developer.novell.com можно найти библиотеку и для De 
 lphi.

Вопрос 642:
От: Hitman
 
Помогите с передачей данных в Excel.
Использую компоненты с закладки Servers - TExcelApplication и
TExcelWorkbook.
//----------------------------------------------------------------------
-------------
procedure   TOS.ExcelExport(aApp : TExcelApplication; aBook :
TExcelWorkbook);
var
  i    :   integer;
begin
  aApp.Connect;
  // открывааем файл
  aApp.Workbooks.Add('card.xls', 0);
  // подключаем книгу
  aBook.ConnectTo(aApp.ActiveWorkbook);
  for i := 1 to k do
  begin
    // добавляем нужное количество листов в книгу
    aApp.Sheets.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);
    // Как переименовать новый лист????????????????????
    //?????????????????????????????????????????????????
  end;
  aApp.Visible[0] := true;
end;
Как же  переименовать вновь добавленные 'Лист1','Лист2'  в нужные мне
имена?
Ответ как бы прост - использовать WorkSheet.Name, но как до него
добраться? Иерархия Excel97.pas - голову сломать можно!
Help-файл по VB для Excel97 изучил - не помогло...
Буду рад ответам, примерам передачи данных, а т.ж. ссылкам...sa

Ответить.

Попробуй так:

Var

WSheet: variant;

 ...

WSheet:=aApp.WorkBooks[1].S 
 heets[1];

WSheet.Name:='MySheet';
Попробуй так:

{............}
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ExtCtrls, ComCtrls, Grids, Outline, DBScroll, StdCtrls,
 ComObj; // ComObj -- необходимо подключить
{............}
Var XL: Variant;
begin
{...............}
 XL := CreateOLEObject('Excel.Application');
 XL.Visible := True;
 XL.WorkBooks.Add;
//====================================================================
XL.WorkBooks[1].WorkSheets[1].Name := 'Name_1'; // первый Лист
XL.WorkBooks[1].WorkSheets[2].Name := 'Name_2'; // Второй Лист
// и так далее.....
end;
Попробуй так:

Вопрос 643:
От: Horreap
 
Я пишу скринсэйвер, и у меня появился такой вопрос: как в Win2000/XP
заблокировать комбинации системных клавиш - ctrl-alt-del, alt-tab,
ctrl-esc  и etc.sa

Ответить.

Попробуй так:

Ctrl+Alt+Del никак. На этом постороена защита у NT(и еже с не 
 й).




Если Вы хотите как можно скорее получить ответ на свой вопрос, то
укажите в теме письма - delphiV,иначе письмо будет прочитано значительно
позже, если же у вас есть предложения то в теме письма укажите delphiP.

Для интересующихся - немного о себе. Работаю на
железнодорожном транспорте ведущим программистом.
Основные мои разработки - это сбор и доставка клиентам
информации о вагонах и поездах: где находится(по России),
куда едет. В связи с этим программировал для e-mail,Socket,БД,ISAPI.

За сим прощаюсь - скорых Вам и качественных программ.

Автор рассылки - Дмитрий.
ICQ - 89533941.

* ВСЕ ВОПРОСЫ * * СПРОСИТЬ * * ПРЕДЛОЖИТЬ * * АРХИВЫ * * СКОЛЬКО НАС *

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