Всё о телефонах и планшетах на базе Windows

Привет всем! Подскажите, плз, как в WinCE добраться до двд-рома? Имеется Phantom DWM 130G с навигацией под управлением WinCE 5.0 (если не ошибаюсь) по актив синк несудьба соеденится, но я поставил альт.меню. Запустил CorePlayer, но им не могу никак найти двд диск чтоб открыть мр3 файлики. Родной плеер к двд нормально обращается, но очень уж кривой. Явно без правки реестра не обойтись, или может быть дело в плеере... Гугл ответов не дает, специализированые форумы по PNA тоже молчат

цитата:

сисег тут нет)

Зря написал никто не поможет теперь

Элвис:

цитата: сисег тут нет) Зря написал никто не поможет теперь

ну я сразу предупредил, чтоб народ не расстраивался

Элвис:

никто не поможет теперь

Очень часто при работе с запросами приходится менять SQL этого запроса. Например, при изменении порядка сортировки или при необходимости изменения фильтра, прописанного в where. Сделать это стандартными средствами можно, но довольно муторно, т.к. весь запрос хранится в одном месте (для TQuery и её потомков это свойство Sql). При желании изменить, например, количество или порядок следования полей в order by, нужно программно найти этот order by, написать свой, вставить его вместо старого и т.д. Для меня, честно говоря, загадка, зачем борланд пошла по такому ущербному пути: стандарт ANSI SQL-92, с которым (и только с которым!) работает Bde, подразумевает достаточно жёсткий синтаксис запроса, вполне допускающий обработку на уровне отдельных секций.
Сегодня я хотел бы поделиться одним из вариантов реализации потомка TQuery, в котором задачи такого класса будут решаться на лету одной строчкой кода.
Смысл очень простой. Для того, чтобы уйти от ручной обработки текста sql-запроса, надо просто разбить его на стандартные секции. И менять их по отдельности. Ведь любой select-запрос имеет достаточно строгий синтаксис, состоя из определённого количества заранее известных секций (clauses), задаваемых в строго определённой последовательности. Рассмотрим этот синтаксис поподробнее на примере СУБД Interbase:
SELECT
[TRANSACTION transaction]
[DISTINCT | ALL]
{* | <val> [, <val> ]}
[INTO :var [, :var ]]
FROM [, ...]
[WHERE <search_condition>]
[GROUP BY col [COLLATE collation] [, col [COLLATE collation] ]
[HAVING <search_condition>]
[UNION <select_expr> [ALL]]
[PLAN ]
[ORDER BY <order_list>]
[FOR UPDATE [OF col [, col ]]];
Как видим, обязательными являются две секции: SELECT и FROM.
Ещё восемь секций опциональны. Наша задача сводится к тому, чтобы значение каждой секции устанавливать отдельно, при необходимости переоткрывая запрос. Можно было бы плясать от стандартного свойства Sql, выделять нужную секцию, менять и вставлять обратно. Но зачем это, если можно сам Sql формировать на основе заданных секций? Конечно, этот подход имеет тот минус, что накрывается прямая установка Sql одной строкой, что может быть неудобно при хранении запроса в реестре, базе и т.д., но и это, при желании, можно побороть.
В общем-то, ничего заумного, реализация до смешного проста, но при использовании в проектах позволяет сэкономить массу времени и значительно увеличить читабельность кода.
Для начала определим все секции:

const
ciClauseCount = 10;
caClauses: array [1..ciClauseCount] of string = ('SELECT',
'INTO',
'FROM',
'WHERE',
'GROUP BY',
'HAVING',
'UNION',
'PLAN',
'ORDER BY',
'FOR UPDATE');

Чтобы не писать отдельное свойство на каждую секцию, задавать их будем в виде массива строк. Для работы с этим массивом нам понадобятся индексы, которые тоже лучше определить заранее:

const
ciSelect = 1;
ciInto = 2;
ciFrom = 3;
ciWhere = 4;
ciGroupBy = 5;
ciHaving = 6;
ciUnion = 7;
ciPlan = 8;
ciOrderBy = 9;
ciForUdate = 10;

Определим тип нашего индексированного свойства и определим сам класс:

Код:
type
TClauseArray = array [1..ciClauseCount] of string;
TDynQuery = class (TQuery)
private fClauses: TClauseArray;
procedure UpdateSql;
procedure SetClause(Index: integer; Value: string);
function GetClause (Index: integer): string; public
property Clause [Index: integer]:
string read GetClause write SetClause;
end;
Свойство fClauses будет содержать все секции запроса, на основе которых и будет формироваться сам запрос. Занимается этим процедура UpdateSql. Ну а методы GetClause/SetClause стандартны, и служат для установки/чтения значений отдельных секций. Поглядим на сам код:

Код:
{ TDynQuery }
procedure TDynQuery.UpdateSql;
var
OldActive: boolean;
i: integer;
begin
DisableControls;
try
OldActive := Active;
Sql.Clear;
for i := 1 to ciClauseCount do begin
if fClauses [i] <> '' then
Sql.Add (caClauseNames [i] + ' ' + fClauses [i]);
end;
Active := OldActive;
finally
EnableControls;
end;
end;
function TDynQuery.GetClause (Index: integer): string;
begin
Result := fClauses [index];
end;
procedure TDynQuery.SetClause(Index: integer; Value: string);
begin
if fClauses [Index] <> Value then begin
fClauses [Index] := Value;
UpdateSql;
end;
end;
Всё достаточно прозрачно, отмечу лишь, что метод UpdateSql добавляет в текст Sql-запроса только те секции, для которых установлено начение, и переоткрывает квери, если она была открыта на момент изменения секции. Здесь есть мелкие недоработки, например, не проверяется выход индекса за пределы допустимых значений, я просто не хотел мусорить исходный код вещами, которые очевидны и принципиально не важны. Можно было бы привести код регистрации компонента в палире дельфи, но это также тривиально. Приведу лучше исходник тестового проекта, в котором используется этот квери. В этом проекте на форме находятся компоненты DbGrid1, подключенные к источнику данных DataSource1, динамически создаётся экземпляр TDynQuery, открывающий таблицу "biolife" из DbDemos, входящую в стандартную поставку Delphi. После этого изменяется по кликанью на заголовке (Title) грида меняется сортировка таблицы:

Код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls, DynQuery;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
procedure FormCreate(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
private
Query1: TDynQuery;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Query1 := TDynQuery.Create (Self);
DataSource1.DataSet := Query1;
Query1.DatabaseName := 'DbDemos';
Query1.Clause [ciSelect] := '*';
Query1.Clause [ciFrom] := '"biolife" b';
Query1.Clause [ciOrderBy] := 'b."category"';
Query1.Active := TRUE;
end;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
f: TField;
begin
f := DbGrid1.SelectedField;
// как и было обещано, порядок сортировки меняется одной строкой
Query1.Clause [ciOrderBy] := 'b."' + Column.FieldName + '"';
DbGrid1.SelectedField := f;
end;

end.

Raleks

ты меня последнее время пугаешь! Я озабочен , то формулы, то языки программирования

А где сиське? Дафай быстрее ДВД починяйф и выкладывай!

biggimot:

Я озабочен

Знаю, Санек, знаю...

biggimot
Сагласин. Ралексу больше травы не давать... Мажителя не наливать!

biggimot

цитата:

Я озабочен

ок

Элвис
И ты здеся! Чтож... ОК!

>Очень часто при работе с запросами приходится менять SQL этого запроса

Ралекс - ты че курнул то ? Этот пример из дельфей изучает каждый первокурсник.. Уж лет 20 как это было... Дошло только сейчас что-ли ? :-)

>как в WinCE добраться до двд-рома

Как и в обычном Windows 95 - написать в config.sys что то типа
----
DEVICE=C:\WINDOWS\HIMEM.SYS /shadow:on
DEVICE=C:\WINDOWS\EMM386.EXE
DEVICEHIGH=C:\WINDOWS\ANSI.SYS
DOS=HIGH,UMB,AUTO

REM Описание дисковода CD-ROM (нижняя строчка)
DEVICEHIGH /L:1=\CPQDOS\CPQIDECD.SYS /D:IDECD001

FILESHIGH=80
BUFFERSHIGH=40,4
FCBSHIGH=10
SWITCHES=/F

device=c:\windows\COMMAND\display.sys con=(ega,,1)
Country=007,866,c:\windows\COMMAND\country.sys
------

если я правильно понял, на DVD записаны сиське и автору нужно или починить винду или альтернативную ссылку?

bantik
Екарный бабай! Прям как у меня на моем компе! И винда 95 лицензионная. А winCE это что то переходное с 3.11?

stelsbiker
Лучше бы он их макреком на кругляшке нарисовал бы! И не парился...

yager:

Привет всем! Подскажите, плз, как добраться до двд-рома?

Ну я бы посоветовал на кресле подкатится.

Люди добрые, памажите неучу!!!

ДАНО:
Телефон Самсунг GT-I8000. с оперативкой 256 Мб, Памятью телефона 8 гиг и катрочка на 8 гиг.

Есть еще Основаня память 512 Мб.
Стоит Винда 6.5

ВНИМАНИЕ ВОПРОС!!!
Основная память Используется гдето 100 метров, остальные 412 забились какой то фигней - по статусу стоит что в резерве!
Свободной нет!!! Смски не приходят, постоянно вываливается сообщение о переполнении.
Если что Диспетчером задач снял все что можно. В опере Все куки-пароли-историю патер.

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

Сиське-котято приветствуютцо.

Панеслась!

Ответ!
Выкини Гнусмас на окнах и купи яблокофон

Valerevich
поставь сторонню прогу для очистки, типа продукта от Resco. На 4пда есть инфа.

Uvex
плохой совет. Если уж и выкидывать данный аппарат, то менять его уже на Гэлакси С 2 или ЛЖ Оптимус 3Д. Айфон томрмоз по сравнению с ними.

Uvex
я больше виноград обкусывать лублу

Derini:

Uvex плохой совет. Если уж и выкидывать данный аппарат, то менять его уже на Гэлакси С 2 или ЛЖ Оптимус 3Д. Айфон томрмоз по сравнению с ними.

Да-да!
Очередной яфон киллер!
9876529645919й по счету))) А он живее всех живых)))

ЗЫ. Какая сволота заминусила мой архиценный и полезный совет??
Кто Валеричу добра не желает?

Uvex
Идолы они такие, живучие

На дык па теме есть че?
Меня ктонить куданить уже пашлет? (на конкретные места хде проги лежат - да, вот я такой ленивый )

Мда... Смотрю советоф накидали вагон и маленькую тележку

Valerevich
все проста...
Пуск-Настройка-Система-Память-Запущенные программы...Остановить ВСЕ...
Постоянно очищай...

Олегин
Это я сделал... я же написал. тчо снял все задачи

Это не действует... вернее действует на ОПЕРАТИВКУ!!!

Valerevich
...ой тада...Мож разных прог в основную память понафтыкал?...я проги на флеху ставлю.

Олегин:

Valerevich ...ой тада...Мож разных прог в основную память понафтыкал?...я проги на флеху ставлю.

Так если нафтыкалось что то (как например опера по умолчанию лежит там) так ведь я так понимаю статус должен быть "занято" а не "зарезервировано" Под что зарезервировано? КемЧем зарезервировано? НЕПОНЯТНО!!!

Если у Оперы в кеше 0 байт стоит

Valerevich
Правильно на 4пда послали , у самого такой девайс. 4PDA, регишся, скачиваеш лайт прошивку и прользуешся в свое удовольствие, никаких зависонов и т.п., а сейчас просто сделай перезагрузку аппарату, только так основательно чистится оператива на GT-I8000.

nik272
Предлагаешь хардрезет? Я чет ачкую... ниче там не слетит контакты не потяряютцо?

Пыс Пыс: еще раз повторяю С ОПЕРАТИВКОЙ ВСЕ КАРАШО!!!

ЗАбита ОСНОВНАЯ ПАМЯТЬ НА 512 МБ!!!

БЛИН, МАТОМ ЧТОЛЬ ПАГАВАРИТЬ, ЧТОБ ШВЫММИ ЗАШЕЛ-помог