Скачать: CL | DM;

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

← →
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 байта, то это не поддается моему разумению...

---

← →
KSergey ©   (2003-05-05 10:47) [12]

> 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 ©

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

---

← →
Palladin ©   (2003-05-06 09:33) [14]

> 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;

---

← →
Digitman ©   (2003-05-06 09:35) [15]

> Hacker.


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

---

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

Спасибо.

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.01 c