Вопросы по Delphi 2 - [8] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

Модерирует : ShIvADeSt
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

ShIvADeSt

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006

EVD

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Barakuda7

Все копируется, сам проверял

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Old,New:string;
begin
Old:='c:\1.txt';
New:='c:\2.txt';
CopyFile(PChar(Old),PChar(New),false);
end;

Всего записей: 123 | Зарегистр. 22-12-2005 | Отправлено: 22:10 05-05-2006

reenoip Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Вопрос снят.
	Всего записей: 1768 \| Зарегистр. 10-03-2006 \| Отправлено: 01:17 06-05-2006 \| Исправлено: reenoip, 10:58 06-05-2006

Sergey1970 Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Посоветуйте, плз, максимально быструю реализацию поиска файлов по маске по всему дереву каталогов, начиная с указанного. Спасибо.
	Всего записей: 55 \| Зарегистр. 11-02-2003 \| Отправлено: 19:43 06-05-2006

SERGE_BLIZNUK

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Sergey1970

Цитата:

максимально быструю реализацию поиска файлов по маске по всему дереву каталогов

я так думаю, что быстрее чем ручками через FindFirst, FindNext и засунуть это всё в рекурсивную функцию - не получится. Если нужна помощь (пример могу кинуть). Опять таки, файловая система какая - если любая - точно руками делайте. Может быть для NTFS, HPFS есть специальные более эффективные команды.

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 22:47 06-05-2006

Sergey1970 Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору SERGE_BLIZNUK FindFirst, FindNext - это все понятно. Надеялся на более «извращенные» способы или библиотеки :о) - с большей производительностью. Спасибо.
	Всего записей: 55 \| Зарегистр. 11-02-2003 \| Отправлено: 22:53 06-05-2006 \| Исправлено: Sergey1970, 22:54 06-05-2006

SERGE_BLIZNUK

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Ага. Так вы всё сами знаете ;-)))

Цитата:

Надеялся на более «извращенные» способы или библиотеки

я думаю, что кроме специальных запросов к определённой файловой структуре (о чём я упоминал) все остальные «извращенные» способы будут просто обёрткой над FindFirst/Next... Причём дай Бог, если грамотной и эффективной обёрткой...
Это моё личное ИМХО, может быть, более знающие ребята меня поправят...

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 23:23 06-05-2006

reenoip Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Вопрос снят, сам разобрался.
	Всего записей: 1768 \| Зарегистр. 10-03-2006 \| Отправлено: 11:51 07-05-2006 \| Исправлено: reenoip, 12:03 07-05-2006

JonyBes

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

С созданием таблиц в interbase вроде разобрался, возник следубщий вопрос:
Люди советуют начинать учится на .NET, в связи с этим несколько вопросов.
Существуют технологии ADO.NET, BDE.NET, dbgo.net, dbexpress.net - разные принципы.
В чем работать?

Всего записей: 371 | Зарегистр. 29-11-2004 | Отправлено: 21:33 07-05-2006

pit23

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Здраствуйте. Возникла проблема при разработке программы. При работе с удаленной базой данных ОРАКЛ связь иногда пропадает(ненадолго, на несколько секунд) и запросы ADOQUERY перестают работать, даже если связь восстанавливается. Необходимо перезапускать программу.

Вопрос: как можно программно восстановить связь с базой данных, не перезапуская программу.
P.S. используюю Delphi 6. Заранее огромное спасибо за помощь.

Всего записей: 60 | Зарегистр. 04-03-2006 | Отправлено: 22:47 07-05-2006

AlxMonster

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

JonyBes

Цитата:

Люди советуют начинать учится на .NET

Если хочешь научится работать в .Net, то лучше это делать с помощью языка C#, а не delphi.net.

Цитата:

Существуют технологии ADO.NET, BDE.NET, dbgo.net, dbexpress.net - разные принципы.
В чем работать?

C# + ADO.NET

Всего записей: 1607 | Зарегистр. 14-02-2006 | Отправлено: 00:15 08-05-2006

OrlangurStep

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Есть 2 вопросы:
1. В delphi7 сталкнулся с такой проблемой: есть несколько полей ввода при нажатии Enter на одной из них выполняется SetFocus на другой но при этом издается какой-то системный звук (Вроде BEEP). Как от этого избавиться?

Код:

procedure TMainForm.longKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0' .. '9': ;
#8: ;
#13: chas.SetFocus;
else key:= chr (0);
end;
end;

procedure TMainForm.chasKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0' .. '9': ;
#8: ;
#13: min.SetFocus;
else key:= chr (0);
end;
end;

procedure TMainForm.minKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0' .. '9': ;
#8: ;
#13: sek.SetFocus;
else key:= chr (0);
end;
end;

2. Можно ли в delphi7 в решиме формы bsSingle не сделать неактивными кнопки в углу окна, а сделать их невидимыми; конкретно кнопку развернуть/восстановить, а то она лишнее место занимает...

Всего записей: 1392 | Зарегистр. 08-04-2006 | Отправлено: 20:49 09-05-2006

AlxMonster

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

OrlangurStep

Цитата:

в решиме формы bsSingle не сделать неактивными кнопки в углу окна, а сделать их невидимыми; конкретно кнопку развернуть/восстановить, а то она лишнее место занимает

Object Inspector-> выбрать свою форму -> border icons-> bmaximize поставить в false
bminimize ->false - для кнопки свернуть
Чтобы эти кнопки не отрисовывались совсем надо поставить и bmaximize и bminimize в false

Всего записей: 1607 | Зарегистр. 14-02-2006 | Отправлено: 20:56 09-05-2006 | Исправлено: AlxMonster, 20:58 09-05-2006

JonyBes

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

1. Подскажите как засунуть в interbase картинку(создавал таблицу в IBExpert тип данных - blob - картинку вставил, в делфи этот столбец определяется как масив, вывести на экран не могу)
2. Как в ADO.NET ПОЛЬЗОВАТЬСЯ Cristal Reports?

Всего записей: 371 | Зарегистр. 29-11-2004 | Отправлено: 21:02 09-05-2006

gpi

Alone Wanderer

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

JonyBes
Вывод содержимого blob в TImage

Код:

var JPEGStream : TMemoryStream;
JPEG: TJPEGImage;
begin
JPEGStream:=TMemoryStream.Create;
MainDM.TableCoinsPICTURE.SaveToStream(JPEGStream);
JPEGStream.Position:=0;
if JPEGStream.Size>0 then
begin
JPEG := TJPEGImage.Create;
JPEG.LoadFromStream(JPEGStream);
Image1.Picture.Graphic:=jpeg;
JPEG.free;
end;
JPEGStream.Free;
end;

Всего записей: 432 | Зарегистр. 30-05-2004 | Отправлено: 21:16 09-05-2006

Sleepwalker

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

pit23

Цитата:

запросы ADOQUERY перестают работать, даже если связь восстанавливается. Необходимо перезапускать программу.

отключение-включение connection помогает?

Всего записей: 1957 | Зарегистр. 19-10-2002 | Отправлено: 21:26 09-05-2006

AlxMonster Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору JonyBes Нечто похожее здесь было http://forum.ru-board.com/topic.cgi?forum=33&topic=6746#13 Только там БД Paradox, зато можно было DBImage использовать.
	Всего записей: 1607 \| Зарегистр. 14-02-2006 \| Отправлено: 21:51 09-05-2006

pit23

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Sleepwalker

Цитата:

отключение-включение connection помогает?

Пишу следующее:

try
ADOQuery1.Open;
except
on EOleException do
begin
ShowMessage('Связи нет');
ADOConnection1.Connected:=false;
ADOConnection1.Connected:=true;
ADOQuery1.Open;
end;
end;

При втором вызове ADOQuery1.Open все равно выдает ошибку (Ошибка Oracle. Код ошибки означает отсутствие соединения с БД).

Всего записей: 60 | Зарегистр. 04-03-2006 | Отправлено: 06:26 10-05-2006

RostY

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

pit23
я попробовал то что ты написал:
1. законектился, открыл ADOQuery
2. Отключил сеть: получил "нет связи" и Exception "ORA-12560 TNS: protocol adapter error" (в ответ на ADOConnection1.Connected:=true;)
3. Включил сеть, опять вызвал процедуру и получил результаты, так что должно у тебя работать

Добавлено:
Единственное:
писал
ADOQuery1.Close; // на всяк случай
try
ADOQuery1.Open;
...

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 10:47 10-05-2006

ReLock

Newbie

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Добрый день.

Кидаю на форму две панели: первой панели ставлю свойство: Align := alLeft,
второй панели ставлю свойство: Align := alBottom.
По умолчанию вторая панель захватывает всю нижнюю часть формы.
Вопрос:
Нельзя ли поменять приоритетность, т.е. чтобы первая панель захватила всю левую часть формы от верху до низу, а вторая панель захватила оставшуюся нижнюю часть (не захватывая нижнюю часть, которую захватила первая панель)?

Всего записей: 11 | Зарегистр. 17-04-2006 | Отправлено: 10:54 10-05-2006

RomanTim Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору ReLock Чтобы не париться с приоритетами выравнивания можно так сделать: на форме 2 панели - alLeft и alClient, а уже на второй - панель с alBottom
	Всего записей: 375 \| Зарегистр. 11-09-2003 \| Отправлено: 11:03 10-05-2006

Страницы: 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC