» Вопросы по Delphi (до версии 2009) - часть 6

SIgor33
Есть некоторые ресурсы (типа шрифтов, анимированных курсоров), которые не могут использоваться из памяти. Мы обязательно должны сохранить эти ресурсы во временном файле на диске и загружать их оттуда.
http://demi-s.narod.ru/resources/002.html

Можно попробовать в примере, конечно, заменить сохранение в файл на TStream, но думаю что не получится.

Подскажите как записать record'ы в файл (может у кого-нибудь есть наглядный пример):
Есть заголовок файла:
THeader = record
cTransForm: char;
wFormVersion: WORD;
bAlgCRC: BYTE;
dwCreateEmit: DWORD;
.......................................
end;

И сами записи:
TRecords = record
wRecId: WORD;
dwDocDate: DATETIME;
bReservoir: BYTE;
.......................................
end;

Man_Without_Face
Рекорды должны быть упакованы, то есть packed, иначе разные версии вашей проги скомпилированные с разными настройками не смогут найти общий язык. Ну а далее либо типизированные файлы, либо TStream.Read/Write.
И еще Char на AnsiChar замените.

Man_Without_Face

Цитата:

Есть заголовок файла:

и что?

рекорды можно писать по кр. мере тремя способами:
1. отдельно каждое поле каждого рекорда writeln'ом в текстовый файл
f: Text;
r: TRecords;
...
assign(f, 'filename.ext');
rewrite(f);
with r do begin
writeln(f, wRecId);
writeln(f, dwDocDate);
writeln(f, bReservoir);
...
end;
close(f);
...

2. в "файл записей"
f: File of TRecords;
r: TRecords;
...
assign(f, 'filename.ext');
rewrite(f);
write(f, r)
close(f);
...

3. в "нетипизированный файл"
f: file;
h: THeader;
r: TRecords;
...
assign(f, 'filename.ext');
rewrite(f, 1);
blockwrite(f, h, sizeof(h)); // header
blockwrite(f, r, sizeof(r)); // record
close(f);
...

слабо в учебнике посмотреть?

Frodo_Torbins

Цитата:

разные версии вашей проги

Загружать файл будет вообще другая прога...

Цитата:

типизированные файлы

А можно наглядный пример...

Цитата:

либо TStream.Read/Write.

Access violation вызывает следующий код:
var AStream: TMemoryStream;
Header: tHeader;
................................................
Header.wFormVersion := 2;
AStream.Write(Header, SizeOf(THeader));
AStream.Position := 0;
AStream.SaveToFile('D:\SD.641');

Спасибо...






Добавлено:
akaGM
Спасибо, завтра попробую.

Цитата:

слабо в учебнике посмотреть?

В нете нашел через stream - не работает.

Man_Without_Face

Цитата:

В нете нашел через stream - не работает

в сети надо искать принципы (как и в учебнике), а не готовые решения...

Man_Without_Face
Типизированные файлы - это вариант номер 2 по классификации akaGM. Что касается вашего кода, то я в нем не вижу создания объекта AStream. Должно быть хотя бы так:

Код: AStream := TMemoryStream.Create;
try
Header.wFormVersion := 2;
AStream.Write(Header, SizeOf(THeader));
AStream.Position := 0;
AStream.SaveToFile('D:\SD.641');
finally
AStream.Free;
end;

Как реализовать следующий алгоритм:
Необходимо по названию Формы.Название компоненты.Название свойства известрых нами в текстовом виде изменить это свойство на нужное значение.
допустим:
по сохраненному тексту 'Form1.Edit1.Text' изменить свойство Text на другое значение.

Код: Procedure MyProc('Form1.Edit1.Text',Value);
begin
... ??? ...
end;

mcdie
Погуглите на RTTI. Правда в делфи до 2010-й работать можно только со свойствами в секции published.

Подскажите как сделать запись в массивы типа Byte и Char из Tquery:
BYTE bCardNumber[19]
Char cTransForm[10]
........................................
TRecords = record
bCardNumber: array[0..18] of byte;
cTransForm: char[0..9] of char;
end;
..........................................
Такое вызывает ошибку несовместимости типов:
for i := 1 to length(qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring) do begin
R.bCardNumber[i - 1] := qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring;
end;
Что не так делаю (Delphi 2006)? Спасибо.

Man_Without_Face
Видимо "qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring" у вас является строкой, а "R.bCardNumber[i - 1]" - число, вот и несовместимость. Судя по вашему коду вам надо сделать: "bCardNumber: array[0..18] of AnsiChar;". Тогда весь ваш цикл сможете заменить на простое присваивание: "R.bCardNumber := qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring;".

Frodo_Torbins
В рекорде должны быть только такие поля:
BYTE bCardNumber[19]
Char cTransForm[10]

Цитата:

Такое вызывает ошибку несовместимости типов:

Код:
for i := 1 to length(qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring) do begin
R.bCardNumber[i - 1] := qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring;
end;

Frodo_Torbins
ShIvADeSt
Спасибо, вроде что то получилось...,
только так сделал R.bCardNumber[i - 1] := s[i];

Man_Without_Face

Цитата:

только так сделал R.bCardNumber[i - 1] := s[i];

У меня Дельфи 5, в ней такой фокус не пройдет Поэтому использую StrToInt

Man_Without_Face
Я так подозреваю, что вам нужна совместимость на бинарном уровне. Так вот можете посмотреть под отладчиком - будет точно тоже самое, а работать с таким типом будет проще.

Подскажите плиз
пример кода
для отправки почтового сообщения
используя SMTP 25 порт

без Outlook api напрямую,
возможно ли такое?

MedvedevDM
В D5 можно попробовать использовать компоненты TNMSMTP,

в D6 и дальше компонентами Indy.

можно примеры глянуть:
http://www.delphisources.ru/pages/faq/base/send_email_using_mapi.html
http://www.delphisources.ru/pages/faq/base/send_email.html
http://www.delphisources.ru/pages/faq/base/send_email2.html

Здравствуйте. Я делаю пошагово программу решения системы уравнений методом интерполяции - экстраполяции в Delphi, и на одном шаге застрял.
1. ввести коэффициенты матрици An,n и столбец свободных членов Bn
2. задать интервал интерполяции h и относительную погрешность e
3. выполнить ввод первоначальных значений Xn, x[i]:=1,2,...,n.
4. x[i]:=w[i]
5.Привести систему к виду f[i]:=0, где x[i]:=w[i];
на этом - 5 шаге я застрял. Как привести систему к виду f[i]:=0, где x[i]:=w[i]?
    

Уважаемые программисты, прошу оказать помощь в решении следующей задачи, очень нужна помощь.

Есть три DBF файла:

accounts.dbf
rectranc.dbf
rectranh.dbf

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

Приведу подробный пример с описанием задачи:

из файла accounts.dbf извлекаются следующие данные:

TNUM   INOUT        ENDSUM
Б00043        АВБ         1000.000
Б00313        АВВ         1000.000
Б00354        Б2         3335.220


из файла rectranc.dbf:

CODE        TNUM        NAME             NFACC
127        Б00043        Иванов Иван Иванович     42307810312487525410
046        Б00313        Петров Петр Петрович     42358796510477456321
111        Б00354        Сидоров Сидор Сидорович   42325895448752223655


из файла rectranh.dbf:

CODE     HEAD2
127        0163
046        0105
111        0049


нужно связать данные из этих файлов и составить три txt файла с именами АВБ, АВВ и Б2 соответственно, в виде:
АВБ.txt
0163:42307810312487525410:1000.00:Иванов:Иван:Иванович:

АВВ.txt
0105:42358796510477456321:1000.00:Петров:Петр:Петрович:

Б2.txt
0049:42325895448752223655:3335.22:Сидоров:Сидор:Сидорович:

P.S.В этой теме мне помогли решить данную задачу при помощи BAT, но данных очень много в файле, возникают тормоза при обработке.Посоветовали напрямую работать с dbf файлами через реляционные операции SQL, но я в программировании не силён.

serg3001

Цитата:

serg3001

Цитата:

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

Используй MS ACCESS. Импортируй туда ДБФы и в конструкторе запросов свяжи их между собой и выбери нужные поля. Результат сохрани в текстовом файле или в XLS или ещё каком.

YuriyRR, открыл в ACCESS файлы, но кодировка DOS отображается, подскажите а как можно поменять кодировку?

serg3001
В нижеуказанной статье описан механизм замены кодировки DBF
В разделе OLE DB Provider for Visual FoxPro. Копировать не буду, там есть пример.
http://am.rusimport.ru/mSAccess/download.aspx?id=657

Но если OLE DB Provider for Visual FoxPro использовать, то нормально будет воспринимать кодировку, пишешь запрос (используя допустим TADOQuery) по своим таблицам, перебираешь результат и в цикле построково сохраняешь в файл. Все русские буквы должны сохранится правильно.

serg3001

можна еще TxQuery попробовать

Кто подскажет, как в делфи
в чек боксе сделать, чтобы галка была нестандартной,
- заменить ее на свою, например из картинки?

MedvedevDM
Насколько я знаю со стандартными компонентами так нельзя. Можно с DevExpress (prperties->glyph). Или использовать те же скины в DevExpress.

Цитата:

serg3001

Как известно, при чтении данных из dbf файла
Access ориентируется на значение параметра
DataCodePage в ключе HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase
Видимо в Вашем случае там записано OEM.
А Вы хотите ANSI. Ну или наоборот ). Или ветка [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\Xbase]
в зависимости от версии

MedvedevDM

Цитата:

Кто подскажет, как в делфи
в чек боксе сделать, чтобы галка была нестандартной,
- заменить ее на свою, например из картинки?

Можно, но на чистом АПИ. Создаешь owner_draw чекбокс и рисуешь что хочешь на нем. Если интересно - могу дать свой кусок.

Подскажите как можно запретить перетаскивание окна(формы) мышкой?

GRom V
Ты про это?
Form.BorderStyle := bsSingle;
Form.Align := alCustom;