Сохранение типов.

← →
Hacker. (2003-05-03 08:26) [0]

Как сохранить тип
Например:
Type MyType=Record V1:Integer; V2:Integer; V3:Integer; Picture:Integer; end;

← →
Morfein © (2003-05-03 08:38) [1]

Что значит "сохранить тип"? Можно сохранить данные, записаные в экземпляре типа! Если так, то:

var f : hFile; rec : MyType; Result : dword; begin f:=CreateFile("C:\SAVED_INSTANCE_OF_MYTYPE.FILE", GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0); if f <> INVALID_HANDLE_VALUE then begin WriteFile(f, rec, sizeOf(MyType), Result, nil); CloseHandle(f); end; end.

← →
KSergey © (2003-05-03 09:04) [2]

Не слабоват ли вопрос для хацкера,а? Или ты кульный хацкер?

← →
Anatoly Podgoretsky © (2003-05-03 09:37) [3]

WriteLn(F,"Type MyType=Record");
WriteLn(F,"V1:Integer;");
WriteLn(F,"V2:Integer;");
WriteLn(F,"V3:Integer;");
WriteLn(F,"Picture:Integer;");
WriteLn(F,"end;");

← →
Palladin © (2003-05-03 11:24) [4]

всем кулхацкерам посвящается

var
f:file of mytype;
myvariable:mytype;

assignfile(f,"cool_file.ch");rewrite(f);
write(f,myvariable);
closefile(f);

← →
evvcom © (2003-05-04 00:05) [5]

> Anatoly Podgoretsky © (03.05.03 09:37)

Всегда прикалываюсь над ответами Анатолия. Человек с юмором!

← →
Aleks1 (2003-05-04 03:31) [6]

>evvcom © (04.05.03 00:05)

>> Anatoly Podgoretsky © (03.05.03 09:37)

>Всегда прикалываюсь над ответами Анатолия. Человек с юмором!

Ни разу не замечал, что Вы "прикалываетесь" над ответами Анатолия!
Человек то он с юмором, это всем известно. Но скорее всего, Вы "отпадаете" при чтении ответов, а не "прикалываетесь", иначе форум был бы забит сообщениями типа:
evvcom © (**.**.** **:**) Удалено модератором.

← →
evvcom © (2003-05-04 03:47) [7]

> Aleks1 (04.05.03 03:31)
> Но скорее всего, Вы "отпадаете" при чтении ответов, а не
> "прикалываетесь"

Да пожалуйста, называйте это как хотите.

← →
Aleks1 (2003-05-04 04:11) [8]

Пардон, 2 evvcom © (04.05.03 03:47)!
Забыл поставить смайлик ":)" в посте от (04.05.03 03:31) :)))

← →
Hacker. (2003-05-05 10:32) [9]

>
> KSergey © (03.05.03 09:04)
> Не слабоват ли вопрос для хацкера,а? Или ты кульный хацкер?

Hacker. - это имя.

> Anatoly Podgoretsky © (03.05.03 09:37)
> WriteLn(F,"Type MyType=Record");
> WriteLn(F,"V1:Integer;");
> WriteLn(F,"V2:Integer;");
> WriteLn(F,"V3:Integer;");
> WriteLn(F,"Picture:Integer;");
> WriteLn(F,"end;");

Там был приведен тип, а не данные, которые надо записать.

> Palladin © (03.05.03 11:24)
> всем кулхацкерам посвящается
> ...

Думаешь я полный ламмер? так уже пробовал, не получается, и пробовал компонент делать и его сохранять, все-равно ничего не получается.

Как я понимаю все сохраняется, кроме Информации, которая хранится с Picture т.е. картинка..

← →
Palladin © (2003-05-05 10:40) [10]

ты натуральный кулхацкер
ибо сохраняешь сами ссылки, а не инфу по ссылкам...

← →
Palladin © (2003-05-05 10:42) [11]

кстати вопрос задан не верно это раз,
во вторых если это картинка почему же она integer?
если таким образом ты думал что весь объект у тебя сожмется в 4 байта, то это не поддается моему разумению...

> Hacker. (05.05.03 10:32)
> Hacker. - это имя.

По паспорту? Или по убеждениям? ;)

А вообще-то, опять же упорно не понимаешь намеков: напиши толком что надо. Что значит "сохранить тип"? Сохранить информацию о типах объектов, составляющих эту структуру? Ну так про это все и отвечают. Но, похоже, не устраивает, так может вопрос переформулировать?

← →
Hacker. (2003-05-06 09:26) [13]

> Palladin ©

Извиняюсь ошибка, там должно было быть:

Type MyType=Record V1:Integer; V2:Integer; V3:Integer; Picture:TPicture; end;

> KSergey ©

У меня паспорта еще нет, делай выводы.

> Hacker. (06.05.03 09:26)

используй TFileStream
сохранение твоего типа будет выглядеть примерно так

procedure SaveMyTypeTo(Stream:TFileStream;myvar:MyType);
begin
Stream.Write(myvar,sizeof(integer)*3);
myvar.picture.SaveToStream(Stream);
end;

> Hacker.

см. методы TPicture.Graphic.LoadFromStream/SaveToStream

← →
Hacker. (2003-05-07 12:14) [16]

Спасибо.

Сохранение типов. Найти похожие ветки