Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];

Вниз

Нужна помощь новичку в описании своего формата файла!!!   Найти похожие ветки 

 
ZLoy   (2002-01-16 19:44) [0]

Господа помогите пожалста.....нужно описать свой формат файла таким образом:
1.Заголовок
2.Сама картинка
3.ключ - разделитель
и так несколько раз.......помогите пожалуйста решить проблему!!!!


 
Kirill   (2002-01-17 10:48) [1]

Что значит несколько раз?
Поподробнее напиши, пожалуйста.


 
gek   (2002-01-17 11:33) [2]

Надо использовать типизированные файлы
file of...


 
Ura   (2002-01-17 17:43) [3]

Попробуй XML


 
Владимир Васильев   (2002-01-17 19:02) [4]

Формат,например, такой :

Заголовок : String : 4 byte

Размер названия картинки : byte : 1 byte

Название картинки : string : размер см. выше

Size потока куда
предварительно
загрузил Bitmap : integer : 4 Byte

Данные потока : : Size см. выше

и т.д ........

Размер названия картинки : byte : 1 byte

Название картинки : string : размер см. выше

Size потока куда
предварительно
загрузил Bitmap : integer : 4 Byte

Данные потока : : Size см. выше
.................

Работает это всё так : Создаёшь FileStream и в него последовательно пишешь свои данные.

Как записать в поток другой поток или числа, надеюсь, объяснять не надо.

На всякий случай - как писать в поток String и читать:

procedure WriteStr(S: String; Stream: TStream);
var
i:word;
begin
i:=length(s);
stream.Write(i,sizeof(i));
stream.write(pchar(s)^,i);
end;


function ReadStr(Stream: TStream): string;
var
i:word;
s:string;
begin
stream.Read(i,sizeof(i));
setlength(s,i);
stream.Read(pchar(s)^,i);
result:=s;
end;

При желании поток с картинкой можно и шифрануть.




Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
14-7213
IronHawk
2002-04-26 13:16
2002.06.03
Админам посвящаеться 4 :-))) ))) и последнее...


14-7232
Vlad_GEOKEN
2002-04-24 11:01
2002.06.03
Вопросы


3-6933
Samvel
2002-05-14 14:04
2002.06.03
Как удалить все записи подчиненой таблицы


1-6981
Alibaba
2002-05-21 17:51
2002.06.03
TWriter


14-7212
Agent Smith
2002-04-27 10:59
2002.06.03
Плагиат





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский