/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 902
от 22.08.2007, 16:05

Вопрос № 98.650

Здравствуйте Уважаемые! Помогите мне пожалуйста обработать бинарный файл.Структура его к сожалению написана на Си. В начале файла идёт заголовок файла struct ticket_zag { char name_m[10]; short n_r; short n_sl; }; его надо прочитать в переменные name, nr , nsl read'ом примерно так: F:=TFileStream.Create(FileName,fmOpenRead); if F.position < sizeof(ticket_zag) then begin //читаем заголовок файла F.read(name, sizeof(ticket_zag .name_m)); F.read(nr, sizeof(ticket_zag .n_r)); F.read(nsl, sizeof(ticket_zag_sl)); end; //здесь я запутался какими типами данных надо описывать и переменные и структуру Далее идёт обработка блоков с данными у каждого из которых есть свой заголовок блока следующей структуры struct ticket_reg_exp { float time; unsigned short pr_rs: 2, n_a : 14; short k_kdg; }; while (F.position<F.size) do begin ........... //заголовок блока тоже надо прочитать в переменные t,prrs,na , kdg //проблема так же с описанием и ещё как читать этот unsigned short pr_rs: 2, n_a : 14; в 2-е переменные Размер самого блока вычисляется так: size = ((nr * nsl)/8 + 2*sizeof(int)) * kdg ; //далее проход по блоку и обработка которую я делаю сам //далее переход на следующий заголовок ,вычисление размера блока,переход на обработку следующего блока и тд до конца файла Как мне лучше всего организовать прохождение по файлу и описать типы переменных?

Отправлен: 16.08.2007, 18:29 Вопрос задал: Зотов Геннадий Александрович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Градов Юрий Михайлович Здравствуйте, Зотов Геннадий Александрович! Посмотрите пример из DelphiWorld в приложении: Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private procedure DumpDOSHeader(const h: IMAGE_DOS_HEADER; Lines: TStrings); procedure DumpPEHeader(const h: IMAGE_FILE_HEADER; Lines: TStrings); procedure DumpOptionalHeader(const h: IMAGE_OPTIONAL_HEADER; Lines: TStrings); { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.DumpDOSHeader(const h: IMAGE_DOS_HEADER; Lines: TStrings); begin Lines.Add('Dump of DOS file header'); Lines.Add(Format('Magic number: %d', [h.e_magic])); Lines.Add(Format('Bytes on last page of file: %d', [h.e_cblp])); Lines.Add(Format('Pages in file: %d', [h.e_cp])); Lines.Add(Format('Relocations: %d', [h.e_crlc])); Lines.Add(Format('Size of header in paragraphs: %d', [h.e_cparhdr])); Lines.Add(Format('Minimum extra paragraphs needed: %d', [h.e_minalloc])); Lines.Add(Format('Maximum extra paragraphs needed: %d', [h.e_maxalloc])); Lines.Add(Format('Initial (relative) SS value: %d', [h.e_ss])); Lines.Add(Format('Initial SP value: %d', [h.e_sp])); Lines.Add(Format('Checksum: %d', [h.e_csum])); Lines.Add(Format('Initial IP value: %d', [h.e_ip])); Lines.Add(Format('Initial (relative) CS value: %d', [h.e_cs])); Lines.Add(Format('File address of relocation table: %d', [h.e_lfarlc])); Lines.Add(Format('Overlay number: %d', [h.e_ovno])); Lines.Add(Format('OEM identifier (for e_oeminfo): %d', [h.e_oemid])); Lines.Add(Format('OEM information; e_oemid specific: %d', [h.e_oeminfo])); Lines.Add(Format('File address of new exe header: %d', [h._lfanew])); Lines.Add(''); end; procedure TForm1.DumpOptionalHeader(const h: IMAGE_OPTIONAL_HEADER; Lines: TStrings); begin Lines.Add('Dump of PE optional file header'); Lines.Add(Format('Magic: %d', [h.Magic])); case h.Magic of $107: Lines.Add(' ROM image'); $10B: Lines.Add(' executable image'); else Lines.Add(' unknown image type'); end; { If } Lines.Add(Format('MajorLinkerVersion: %d', [h.MajorLinkerVersion])); Lines.Add(Format('MinorLinkerVersion: %d', [h.MinorLinkerVersion])); Lines.Add(Format('SizeOfCode: %d', [h.SizeOfCode])); Lines.Add(Format('SizeOfInitializedData: %d', [h.SizeOfInitializedData])); Lines.Add(Format('SizeOfUninitializedData: %d', [h.SizeOfUninitializedData])); Lines.Add(Format('AddressOfEntryPoint: %d', [h.AddressOfEntryPoint])); Lines.Add(Format('BaseOfCode: %d', [h.BaseOfCode])); Lines.Add(Format('BaseOfData: %d', [h.BaseOfData])); Lines.Add(Format('ImageBase: %d', [h.ImageBase])); Lines.Add(Format('SectionAlignment: %d', [h.SectionAlignment])); Lines.Add(Format('FileAlignment: %d', [h.FileAlignment])); Lines.Add(Format('MajorOperatingSystemVersion: %d', [h.MajorOperatingSystemVersion])); Lines.Add(Format('MinorOperatingSystemVersion: %d', [h.MinorOperatingSystemVersion])); Lines.Add(Format('MajorImageVersion: %d', [h.MajorImageVersion])); Lines.Add(Format('MinorImageVersion: %d', [h.MinorImageVersion])); Lines.Add(Format('MajorSubsystemVersion: %d', [h.MajorSubsystemVersion])); Lines.Add(Format('MinorSubsystemVersion: %d', [h.MinorSubsystemVersion])); Lines.Add(Format('Win32VersionValue: %d', [h.Win32VersionValue])); Lines.Add(Format('SizeOfImage: %d', [h.SizeOfImage])); Lines.Add(Format('SizeOfHeaders: %d', [h.SizeOfHeaders])); Lines.Add(Format('CheckSum: %d', [h.CheckSum])); Lines.Add(Format('Subsystem: %d', [h.Subsystem])); case h.Subsystem of IMAGE_SUBSYSTEM_NATIVE: Lines.Add(' Image doesnot require a subsystem. '); IMAGE_SUBSYSTEM_WINDOWS_GUI: Lines.Add(' Image runs in the Windows GUI subsystem. '); IMAGE_SUBSYSTEM_WINDOWS_CUI: Lines.Add(' Image runs in the Windows character subsystem. '); IMAGE_SUBSYSTEM_OS2_CUI: Lines.Add(' image runs in the OS/2 character subsystem. '); IMAGE_SUBSYSTEM_POSIX_CUI: Lines.Add(' image run in the Posix character subsystem. '); else Lines.Add(' unknown subsystem') end; { Case } Lines.Add(Format('DllCharacteristics: %d', [h.DllCharacteristics])); Lines.Add(Format('SizeOfStackReserve: %d', [h.SizeOfStackReserve])); Lines.Add(Format('SizeOfStackCommit: %d', [h.SizeOfStackCommit])); Lines.Add(Format('SizeOfHeapReserve: %d', [h.SizeOfHeapReserve])); Lines.Add(Format('SizeOfHeapCommit: %d', [h.SizeOfHeapCommit])); Lines.Add(Format('LoaderFlags: %d', [h.LoaderFlags])); Lines.Add(Format('NumberOfRvaAndSizes: %d', [h.NumberOfRvaAndSizes])); end; procedure TForm1.DumpPEHeader(const h: IMAGE_FILE_HEADER; Lines: TStrings); var dt: TDateTime; begin Lines.Add('Dump of PE file header'); Lines.Add(Format('Machine: %4x', [h.Machine])); case h.Machine of IMAGE_FILE_MACHINE_UNKNOWN: Lines.Add(' MACHINE_UNKNOWN '); IMAGE_FILE_MACHINE_I386: Lines.Add(' Intel 386. '); IMAGE_FILE_MACHINE_R3000: Lines.Add(' MIPS little-endian, 0x160 big-endian '); IMAGE_FILE_MACHINE_R4000: Lines.Add(' MIPS little-endian '); IMAGE_FILE_MACHINE_R10000: Lines.Add(' MIPS little-endian '); IMAGE_FILE_MACHINE_ALPHA: Lines.Add(' Alpha_AXP '); IMAGE_FILE_MACHINE_POWERPC: Lines.Add(' IBM PowerPC Little-Endian '); // some values no longer defined in winnt.h $14D: Lines.Add(' Intel i860'); $268: Lines.Add(' Motorola 68000'); $290: Lines.Add(' PA RISC'); else Lines.Add(' unknown machine type'); end; { Case } Lines.Add(Format('NumberOfSections: %d', [h.NumberOfSections])); Lines.Add(Format('TimeDateStamp: %d', [h.TimeDateStamp])); dt := EncodeDate(1970, 1, 1) + h.Timedatestamp / SecsPerDay; Lines.Add(FormatDateTime(' c', dt)); Lines.Add(Format('PointerToSymbolTable: %d', [h.PointerToSymbolTable])); Lines.Add(Format('NumberOfSymbols: %d', [h.NumberOfSymbols])); Lines.Add(Format('SizeOfOptionalHeader: %d', [h.SizeOfOptionalHeader])); Lines.Add(Format('Characteristics: %d', [h.Characteristics])); if (IMAGE_FILE_DLL and h.Characteristics) <> 0 then Lines.Add(' file is a DLL') else if (IMAGE_FILE_EXECUTABLE_IMAGE and h.Characteristics) <> 0 then Lines.Add(' file is a program'); Lines.Add(''); end; procedure TForm1.Button1Click(Sender: TObject); var fs: TFilestream; signature: DWORD; dos_header: IMAGE_DOS_HEADER; pe_header: IMAGE_FILE_HEADER; opt_header: IMAGE_OPTIONAL_HEADER; begin memo1.Clear; with Opendialog1 do begin Filter := 'Executables (*.EXE)|*.EXE'; if Execute then begin fs := TFilestream.Create(FileName, fmOpenread or fmShareDenyNone); try fs.read(dos_header, SizeOf(dos_header)); if dos_header.e_magic <> IMAGE_DOS_SIGNATURE then begin memo1.Lines.Add('Invalid DOS file header'); Exit; end; DumpDOSHeader(dos_header, memo1.Lines); fs.seek(dos_header._lfanew, soFromBeginning); fs.read(signature, SizeOf(signature)); if signature <> IMAGE_NT_SIGNATURE then begin memo1.Lines.Add('Invalid PE header'); Exit; end; fs.read(pe_header, SizeOf(pe_header)); DumpPEHeader(pe_header, memo1.Lines); if pe_header.SizeOfOptionalHeader > 0 then begin fs.read(opt_header, SizeOf(opt_header)); DumpOptionalHeader(opt_header, memo1.Lines); end; finally fs.Free; end; { finally } end; end; end; end. --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 16.08.2007, 21:12 Оценка за ответ: 2 Комментарий оценки: этот пример с DelphiWorld к чему он тут,неужели что бы перевести 2 структуры с си и процедурки с 2- 3 мя циклами нужно столько кода,я разве что то написал о работе с memo

Отвечает: Виктор Пырлик Здравствуйте, Зотов Геннадий Александрович! В приложении дан код. Протестил, работает. Думаю, адаптировать для своих нужд вам не составт труда, основные преобразования и чтение выполнены, как и определены структуры (записи) аналогичные для вашего вопроса. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TWordArray = array[0..1]of word; ticket_zag = record name_m :array[0..9]of char; n_r,n_sl:word; end; ticket_reg_exp = record time:Single; rs:Word; k_kdg: word; end; //------------------------------------------------------------------------------ TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private tz:ticket_zag; tr:ticket_reg_exp; function ReadData(FileName:String):boolean; function SplitWord(Value:word):TWordArray; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TForm1.ReadData(FileName: String):boolean; var f:TFileStream; begin result := false; F:=TFileStream.Create(FileName,fmOpenRead); try f.Read(tz,sizeof(tz)); f.Seek(sizeof(tz),soFromBeginning); f.Read(tr,sizeof(tr)); result := true; finally f.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); var x:TWordArray; begin ZeroMemory(@x,sizeof(TWordArray)); if(OpenDialog1.Execute)then begin if( ReadData(OpenDialog1.FileName))then begin x := SplitWord(tr.rs); Label1.Caption := tz.name_m; Label2.Caption := IntToStr(tz.n_r); Label3.Caption := IntToStr(tz.n_sl); Label4.Caption := FloatToStr(tr.time); Label5.Caption := IntToStr(x[0]); Label6.Caption := IntToStr(x[1]); Label7.Caption := IntToStr(tr.k_kdg); end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin ZeroMemory(@tr,sizeof(tr)); ZeroMemory(@tz,sizeof(tz)); end; function TForm1.SplitWord(Value: word): TWordArray; begin ZeroMemory(@result,sizeof(TWordArray)); result[0] := (value and $03); result[1] := value shr 2; end; end. --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Студент) Ответ отправлен: 17.08.2007, 00:58

Вопрос № 98.692

Где можно посмотреть описание класса Xdom для Delphi 7 ?

Отправлен: 17.08.2007, 05:20 Вопрос задал: Alexei_FAQ (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Coupler Здравствуйте, Alexei_FAQ! На этой странице Вы можете найти документацию по Xdom.

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 17.08.2007, 05:27 Оценка за ответ: 5

Вопрос № 98.734

Доброго времени суток! Пишу программу которая достает HTML-код "http://quote.ru", для дальнейшего парсинга. На сайте я настроил какие мне показывать котировки. HTML - код я достаю используя компонент IdHTTP.get(url). Функция get возвращает мне HTML-код, но в нем совершенно другие котировки которые меня не интересуют. В чем может быть проблема?

Отправлен: 17.08.2007, 15:06 Вопрос задал: Ибрагимов Дмитрий Владимирович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 10)

Отвечает: Coupler Здравствуйте, Ибрагимов Дмитрий Владимирович! В каком смысле другие котировки? Посмотрите код в приложении - он скачивает страницу http://quote.ru и сохраняет ее на диск. После загрузки можете "разобрать" TStringList для сохранения нужных котировок. Пример этого (программа показывает курсы валют) присоединен к ответу. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DateUtils, StdCtrls, idHTTP, Menus, ExtCtrls,Clipbrd, ComCtrls,INIFiles; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; HTTP: TIdHTTP; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var S: TStringList; P,I: integer; USD,EUR,AFS,pM,pP: string; begin HTTP:=TIdHTTP.Create(nil); HTTP.HandleRedirects:=True; HTTP.ProtocolVersion:=pv1_0; HTTP.ProtocolVersion:=pv1_0; S:=TStringList.Create; S.Text:=HTTP.Get('http://quote.ru'); HTTP.Free; s.SaveToFile('123.html'); end; end. Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 17.08.2007, 15:50

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Ибрагимов Дмитрий Владимирович! Используйте компонент TWebBrowser. Он работает на движке IE, по умолчанию разделяет с ним все куки и настройки. А также имеет удобный встроенный HTML-парсер. --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Специалист) Ответ отправлен: 17.08.2007, 17:39

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.56 beta от 20.08.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru