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

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

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

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

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

Модерирует : ShIvADeSt
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 101 102

samusev

Junior Member

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

Цитата:

или у тебя "тяжелый" поток до отображения заставки стартует

Не скрою - картинка почти 50 кб (маленькая, но 24bit цветности) - вот уж не думал, что так критично по памяти...

Вопрос частично (не не полностью решен)

Set TImage.IncrementalDisplay to true on large compressed images that take a long time to load or on images that may be altered by a computationally slow process. When IncrementalDisplay is true, partial renderings of the image are drawn periodically during slow operations such as loading. Set IncrementalDisplay to false to wait until the entire operation is complete before drawing the image.

For some classes of graphic objects, an OnProgress event occurs at various points during slow operations. If IncrementalDisplay is true, the OnProgress event occurs immediately after the approximate image is drawn. If IncrementalDisplay is false, OnProgress occurs but the image is not updated until the entire image has been loaded.

The default value for IncrementalDisplay is false.

Попробовал (true)- вроде бы быстрее - но всеравно ВИДНО прорисовку.

Кстати еще вопросик возник. Если в TImage грузить GIF - на старте - выдает ошибку чтения потока. на маленьких GIF - такого нет. а мой 49 кб. Кто что знает про это?

Добавлено:
Всем спасибо.

Решено.

сжатием а JPG до 13 кб + TImage.IncremrntalDisplay=true

Всего записей: 75 | Зарегистр. 03-03-2005 | Отправлено: 19:09 23-01-2006 | Исправлено: samusev, 19:26 23-01-2006

stepan96

Junior Member

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

Здравствуйте коллеги!

Предложили написать диплом. Тема не помню, но суть следующая: разработка приложения в виде трехзвенной архитектуры.
Т.е. сервер БД - сервер приложений - клиенская часть. Необходимо разработать сервер приложений и клиентскую часть.
Причем: сервер приложений должен быть реализован в виде службы. Настройка сервера приложений должна быть выполнена в виде
консоли MMC (может быть получится и изменить этот пункт).

Теперь собственно вопросы: с чего начать?

Посоветуйте необходимую литературу. Если кто сталкивался с реализацией таких
задач - помогите советом.

Спасибо заранее

Всего записей: 155 | Зарегистр. 28-01-2003 | Отправлено: 20:37 23-01-2006

dyr farot Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору http://www.rsdn.ru/Forum/Message.aspx?mid=191390&only=1
	Всего записей: 697 \| Зарегистр. 03-08-2004 \| Отправлено: 12:50 24-01-2006

Lightosaur

Newbie

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

Господа умные товарищи! Помогите!
Жизнь заставила изучать Делфи.
И вот всё было хорошо, пока не дошло до создания объектов собственного класса.
фрагмент программы (почти из учебника):
TMyObject = class (TObject)
MyField:integer;
function MyMethod:integer;
end;
При компиляции сообщение:
Unit1.pas(20): Unsatisfied forward or external declaration: 'TMyObject.MyMethod'
Шо такое?
Что только не делал. Не хочет создавать метод нового класса.
Спасайте от самоубийства!!!

Всего записей: 9 | Зарегистр. 24-01-2006 | Отправлено: 18:33 24-01-2006

OXDBA

Full Member

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

Lightosaur
Поставь курсор мыши на MyMethod, затем нажми SHIFT+CTRL+C или клик правой кнопки мыши, пункт меню Complete class at cursor.

Добавлено:
Да, когда уведишь в секции implementation код

function TMyObject.MyMethod: Integer;
begin

end;
Подумай, Шо это такое?

Всего записей: 426 | Зарегистр. 19-01-2005 | Отправлено: 18:42 24-01-2006

YurikGL

Member

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

Цитата:

Да, когда уведишь в секции implementation код

function TMyObject.MyMethod: Integer;
begin

end;
Подумай, Шо это такое?

Есть сильное подозрение, что этого он не обнаружит...

Цитата:

Lightosaur

Функцию описал, а тело кто определять будет?

Всего записей: 308 | Зарегистр. 02-09-2004 | Отправлено: 22:31 24-01-2006

Lightosaur Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Спасибо друзья. Сегодня вы спасли, если не жизнь, то мою работу точно.
	Всего записей: 9 \| Зарегистр. 24-01-2006 \| Отправлено: 23:10 24-01-2006

RostY

Member

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

eMASTER

Цитата:

Подскажите, может кто знает...
Как в документе MS Word заменить некоторые слова на данные из таблицы Access'а?
Вообще какие-нибудь доки или статьи по работе с Word...

пример с исп. OLE из одного моего проекта:

procedure TForm1.Button1Click(Sender: TObject);
var
Word: Variant;
begin
Word := CreateOleObject('Word.Application');
Word.Documents.Open('C:\шаблон.doc');
Word.Visible := 1;
Word.Selection.Find.ClearFormatting;
Word.Selection.Find.Replacement.ClearFormatting;
word.Selection.Find.Text := Table1.FieldByName('WORDTEXT').AsString; //что ищем
word.Selection.Find.Replacement.Text := iFile.ReadString(table1.fieldByName('AIDASECTION').AsString,
table1.fieldByName('AIDAKEY').AsString,
table1.fieldByName('WORDTEXT').AsString); //текст для замены
word.Selection.Find.Forward := True;
word.Selection.Find.Wrap := $00000002;
word.Selection.Find.Format := False;
word.Selection.Find.MatchCase := False;
word.Selection.Find.MatchWholeWord := False;
word.Selection.Find.MatchWildcards := False;
word.Selection.Find.MatchSoundsLike := False;
word.Selection.Find.MatchAllWordForms := False;
word.Selection.Find.Execute(Replace:=$00000002);

Добавлено:
Bonivur

Цитата:

Нужна подсветка гитарных аккордов в тексте

_http://synedit.sourceforge.net/index.php

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

ladapilot

Newbie

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

Помогите !
Чтобы было понятно поясню суть.
Есть база данных содержащая людей , т.е фамилию имя и т.д и фотографию.Как при редактировании записи изменить фотографию, если эта фотка предварительно загружена в компоненту Image?
form1.table1.edit;
????????? (чё здесь должно быть)

form1.table1.post;

Всего записей: 4 | Зарегистр. 25-01-2006 | Отправлено: 23:05 25-01-2006

sunduk4 Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ladapilot какая база и как хранишь фотографии? если в блоб полях, то - hттp://progers.net.ru/modules.php?name=Pages&pa=list_pages_categories&cid=23
	Всего записей: 177 \| Зарегистр. 03-04-2004 \| Отправлено: 06:57 26-01-2006

RostY

Member

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

Подскажите, как получить ROWID записи при использовании DOA. Написал

select tab1.rowid, tab1.* from tab1

все поля есть, ROWID нету.

Добавлено:
ladapilot

Цитата:

Как при редактировании записи изменить фотографию

вопрос
Цитата:

какая база и как хранишь фотографии?

остается открытым.

попробуй используй DBImage, настрой датасорс, датафилд,

form1.table1.edit;
DBImage.Picture.LoadFromFile('c:\pic.bmp');
form1.table1.post;

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 09:26 26-01-2006 | Исправлено: RostY, 10:12 26-01-2006

ArtemiyUO Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору попробуй для эксперемента select rowid, fieldname from tab1
	Всего записей: 539 \| Зарегистр. 12-12-2005 \| Отправлено: 11:29 26-01-2006

SERGE_BLIZNUK

Silver Member

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

RostY

Цитата:

Подскажите, как получить ROWID записи при использовании DOA. Написал

из рабочего проекта

Код:

function TApplicationServer.LockRecords(const stTableName, stRange: WideString): Double;
var
q: TOracleDataSet;
begin
q := TOracleDataSet.Create(self);
try
q.Session := osUserSession;
SetSQL('SELECT rownum FROM ' + FullTableName(stTableName) + ' WHERE ' + stRange + ' FOR UPDATE NOWAIT', q);
q.Open;
Result := q.RecordCount;
finally
q.Free;
end;
end;

stRange при вызове устанавливается 'TableName_ID = 1234500999111'
TableName_ID - уникальный ключ,
1234500999111 - значение (образец) для редактируемой записи

думаю, что всё понятно ? ;-))

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 03:48 27-01-2006

RostY

Member

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

SERGE_BLIZNUK

Я немного чайник, может поэтому не совсем понятно. Или ты меня не совсем понял.

Мне нужно именно ROWID, а не просто какую-то уникальную запись. Тот ROWID, который вижу в SQL-Plus, или при конекте к Ораклу через BDE.

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

Vitus_Bering Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Господа, посоветуйте, пож-та, как можно быстро сравнить два StringList. В каждом около 5000 строк.
	Всего записей: 936 \| Зарегистр. 30-09-2005 \| Отправлено: 10:33 27-01-2006

RostY Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору если просто на "равно", "не равно", то if StringList1.Text = StringList2.Text
	Всего записей: 387 \| Зарегистр. 11-01-2006 \| Отправлено: 11:07 27-01-2006

Vitus_Bering Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору [q][/q] Надо сравнить построчно StringList1 с StringList2, в случае несовпадения строка заносится в StringList_NoMatches.
	Всего записей: 936 \| Зарегистр. 30-09-2005 \| Отправлено: 11:32 27-01-2006

ShamaN

Advanced Member

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

Подскажите как jpeg изображение из blob поля можно показать в Image.
Помещаю в БД следующим образом:

Код:

if FileExists(dlgOpenFile.FileName) then

begin
Image1.Picture.LoadFromFile(dlgOpenFile.FileName);
DataSource1.DataSet.Edit;
BlobStream := DataSource1.DataSet.CreateBlobStream(
DataSource1.DataSet.FieldByName('FOTO'), bmWrite);
try
FileStream := TFileStream.Create(dlgOpenFile.FileName, fmOpenRead);
try
BlobStream.CopyFrom(FileStream, FileStream.Size);
finally
FileStream.Free;
end;
finally
BlobStream.Free;
end;
DataSource1.DataSet.Post;

а при чтении:

Код:

BlobStream := Form2.DataSource1.DataSet.CreateBlobStream(
Form2.DataSource1.DataSet.FieldByName('FOTO'), bmRead);

Image1.Picture.BitMap.LoadFromStream(BlobStream);

выдается ошибка.

Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 12:05 27-01-2006 | Исправлено: ShamaN, 12:06 27-01-2006

LordMAD

Member

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

ShamaN
Вопрос снят?

Добавлено:
Vitus_Bering

Цитата:

Надо сравнить построчно StringList1 с StringList2, в случае несовпадения строка заносится в StringList_NoMatches.

Сравнивай hash'ы строк. Если они совпадают - сами строки. Будет очень быстро, если правильно подберешь hash'ы.

Всего записей: 378 | Зарегистр. 01-10-2002 | Отправлено: 12:36 27-01-2006

Vitus_Bering Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору LordMAD Спасибо за совет. Если можно уточни по поводу hash'ей, как их подбирать и сравнивать потом. Может пример кода, если есть.
	Всего записей: 936 \| Зарегистр. 30-09-2005 \| Отправлено: 12:49 27-01-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 101 102

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1

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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC