Сохранение в формате SVG

@slava13 · Регистрация: 08.10.2014

Студворк — интернет-сервис помощи студентам

Всем привет!

Долго лазил и искал, но ответа на свой вопрос так и не нашел. Вопрос: допустим у меня есть(или будет) проект в делфи который строит линии и тд. - как мне сохранить его в формате .svg?

Спасибо.

@Игорь[Igor] · 09.10.2014, 01:51

Структуру файла SVG знаеш?

@slava13 · 09.10.2014, 22:35 **[ТС]**

Ну, как бы..... (http://habrahabr.ru/post/184958/) ?

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

Спасибо за ранее!

@Игорь[Igor] · 09.10.2014, 22:50

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

@slava13 · 10.10.2014, 23:02 **[ТС]**

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

Спасибо за ранее!

Добавлено через 25 минут
И еще такой вопрос: у меня есть простой свг файл, как мне его проще всего открыть в делфи? и можно ли?
Много читал про то как прописывать file - open - save to но оно все на основе текстовой формы, никак не могу понять как мне открывать, например, в моей делфи пограмме и в последствии его редактировать? или все не так просто?

Спасибо.

@Игорь[Igor] · 10.10.2014, 23:11

Ссылок незнаю.
Вот модуль, как сохранить картинку в PDF

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
unit PicturePDF;
 
interface
uses
  Windows, Classes, Graphics, SysUtils;
 
  procedure PictureToPDF(Picture: TPicture; SaveName: String);
 
implementation
 
procedure Write_CrossReferenceTable(AStream: TStream; PosArray: array of Dword; Count: Integer);
var
   i :Integer;
begin
  with TStringStream(AStream) do
  begin
    WriteString('xref'#10);
    WriteString(Format('0 %d'#10, [Count+1]));
    WriteString('0000000000 65535 f '#10);
    for i:= 0 to Count-1 do
    begin
      WriteString(Format('%0.10d', [PosArray[i]])+' 00000 n '#10);
    end;
  end;
end;
 
procedure Write_ContentsObject(AStream: TStream; Index: Dword; Width, Height: Integer);
var
  MemoryStream: TMemoryStream;
begin
  MemoryStream:=TMemoryStream.Create;
  try
    // Stream
    with TStringStream(MemoryStream) do
    begin
      WriteString('q'#10);
      WriteString(Format('%d 0 0 %d 0 0 cm'#10, [Width, Height]));
      WriteString('/Im0 Do'#10);
      WriteString('Q'#10);
    end;
 
    MemoryStream.Position:=0;
 
     // Object
    with TStringStream(AStream) do
    begin
      WriteString(Format('%d 0 obj'#10,[Index]));
      WriteString(Format('<< /Length %d >>'#10, [MemoryStream.Size]));
      WriteString('stream'#10);
      AStream.CopyFrom(MemoryStream, MemoryStream.Size) ;
      WriteString('endstream'#10);
      WriteString('endobj'#10);
    end;
  finally
    MemoryStream.Free;
  end;
end;
 
procedure GetPictureData(AStream: TStream; Picture: TPicture);
begin
  Picture.Graphic.SaveToStream(AStream);
end;
 
procedure PictureToPDF(Picture: TPicture; SaveName: String);
Var
  AStream, PictureData: TStream;
  ObjectIndex: Integer;
  ObjectPosArray: array [0..10] of Dword;
begin
  if Picture=nil then
  raise  Exception.Create('Picture is nil');
 
  if SaveName='' then
  raise  Exception.Create('SaveName is nil');
 
  ObjectIndex :=0;
 
  AStream  :=TFileStream.Create(SaveName, fmCreate)  ;
  PictureData :=TMemorySTream.Create;
  try
    GetPictureData(PictureData, Picture);
    PictureData.Position:=0;
 
    // PDF version
    TStringStream(AStream).WriteString('%PDF-1.2'#10);
 
    // Catalog
    ObjectPosArray[ObjectIndex] :=AStream.Position;
    with TStringStream(AStream) do
    begin
      WriteString(Format('%d 0 obj'#10, [ObjectIndex+1]));
      WriteString('<<'#10);
      WriteString('/Type /Catalog'#10);
      WriteString('/Pages 2 0 R'#10);
      // View Option (100%)
      WriteString('/OpenAction [3 0 R /XYZ -32768 -32768 1 ]'#10);
      WriteString('>>'#10);
      WriteString('endobj'#10);
    end;
    Inc(ObjectIndex);
 
    // Parent Pages
    ObjectPosArray[ObjectIndex] :=AStream.Position;
    with TStringStream(AStream) do
    begin
      WriteString(Format('%d 0 obj'#10, [ObjectIndex+1]));
      WriteString('<<'#10);
      WriteString('/Type /Pages'#10);
      WriteString('/Kids [ 3 0 R ]'#10);
      WriteString('/Count 1'#10);
      WriteString('>>'#10);
      WriteString('endobj'#10);
    end;
    Inc(ObjectIndex);
 
    // Kids Page
    ObjectPosArray[ObjectIndex] :=AStream.Position;
    with TStringStream(AStream) do
    begin
      WriteString(Format('%d 0 obj'#10, [ObjectIndex+1]));
      WriteString('<<'#10);
      WriteString('/Type /Page'#10);
      WriteString('/Parent 2 0 R'#10);
      WriteString('/Resources'#10);
      WriteString('<<'#10);
      WriteString('/XObject << /Im0 4 0 R >>'#10);
      WriteString('/ProcSet [ /PDF /ImageC ]'#10);
      WriteString('>>'#10);
      WriteString(Format('/MediaBox [ 0 0 %d %d ]'#10, [Picture.Width, Picture.Height]));
      WriteString('/Contents 5 0 R'#10);
      WriteString('>>'#10);
      WriteString('endobj'#10);
    end;
    Inc(ObjectIndex);
 
    // XObject Resource
    ObjectPosArray[ObjectIndex] :=AStream.Position;
    with TStringStream(AStream) do
    begin
      WriteString(Format('%d 0 obj'#10, [ObjectIndex+1]));
      WriteString('<<'#10);
      WriteString('/Type /XObject'#10);
      WriteString('/Subtype /Image'#10);
      WriteString('/Name /Im0'#10);
      WriteString(Format('/Width %d'#10, [Picture.Width]));
      WriteString(Format('/Height %d'#10, [Picture.Height]));
      WriteString('/BitsPerComponent 8'#10);
      WriteString('/Filter [/DCTDecode]'#10);
      WriteString('/ColorSpace /DeviceRGB'#10);
      WriteString(Format('/Length %d >>'#10, [PictureData.Size]));
      WriteString('stream'#10);
      AStream.CopyFrom(PictureData, PictureData.Size);
      WriteString('endstream'#10);
      WriteString('endobj'#10);
    end;
    Inc(ObjectIndex);
 
    // Contents Stream & Object
    ObjectPosArray[ObjectIndex] :=AStream.Position;
    with TStringStream(AStream) do
    begin
      Write_ContentsObject(AStream, ObjectIndex+1, Picture.Width, Picture.Height);
    end;
    Inc(ObjectIndex);
 
    // CrossReferenceTable
    ObjectPosArray[ObjectIndex] :=AStream.Position;
    Write_CrossReferenceTable(AStream, ObjectPosArray, ObjectIndex);
 
    // trailer
    with TStringStream(AStream) do
    begin
      WriteString('trailer'#10);
      WriteString('<<'#10);
      WriteString(Format('/Size %d'#10, [ObjectIndex+1]));
      WriteString('/Root 1 0 R'#10);
      WriteString('>>'#10);
      WriteString('startxref'#10);
      WriteString(Format('%d'#10, [ObjectPosArray[ObjectIndex]]));
      WriteString('%%EOF');
    end;
  finally
    AStream.Free;
    PictureData.Free;
  end;
end;
 
end.

Можно и попроще с помощью простых процедур write, writeln, blockwrite, или так как SVG текстовый записать сначало в переменную типа TStringList а потом сохранить SaveToFile. Можно хоть как и для каких целей.

Добавлено через 7 минут

Сообщение от slava13

И еще такой вопрос: у меня есть простой свг файл, как мне его проще всего открыть в делфи? и можно ли?
Много читал про то как прописывать file - open - save to но оно все на основе текстовой формы, никак не могу понять как мне открывать, например, в моей делфи пограмме и в последствии его редактировать? или все не так просто?

Не все так просто, да. Придеться создать структуру в которую будеш загружать данные. Сделать редактор.

@slava13 · 10.10.2014, 23:56 **[ТС]**

и на том спасибо!

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@slava13 0 / 0 / 0 Регистрация: 08.10.2014 Сообщений: 4

	Сохранение в формате SVG 08.10.2014, 23:12. Показов 2837. Ответов 6 Метки нет (Все метки) Всем привет! Долго лазил и искал, но ответа на свой вопрос так и не нашел. Вопрос: допустим у меня есть(или будет) проект в делфи который строит линии и тд. - как мне сохранить его в формате .svg? Спасибо. 0

@Игорь[Igor] 726 / 478 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	09.10.2014, 01:51
	Структуру файла SVG знаеш? 0

@slava13 0 / 0 / 0 Регистрация: 08.10.2014 Сообщений: 4
	09.10.2014, 22:35 [ТС]
	Ну, как бы..... (http://habrahabr.ru/post/184958/) ? Программка моя будет строить просты линии и сохранять в формате SVG, вот и хочу узнать как это реализовать и на сколько сложно. Спасибо за ранее! 0

@Игорь[Igor] 726 / 478 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	09.10.2014, 22:50
	Да вроде не особо сложно. Формат текстовый. Что касается реализыции изучи подробно структуру, и сохраняй по тем правилам как должен строиться файл. 0

@slava13 0 / 0 / 0 Регистрация: 08.10.2014 Сообщений: 4
	10.10.2014, 23:02 [ТС]
	А можно, плз, подробнее ссылочку на то, как сохранять файлы своем формате (или в том котоом тебе надо) в Делфи? А то искал, но чего-то полезного не нашел. Спасибо за ранее! Добавлено через 25 минут И еще такой вопрос: у меня есть простой свг файл, как мне его проще всего открыть в делфи? и можно ли? Много читал про то как прописывать file - open - save to но оно все на основе текстовой формы, никак не могу понять как мне открывать, например, в моей делфи пограмме и в последствии его редактировать? или все не так просто? Спасибо. 0

@slava13 0 / 0 / 0 Регистрация: 08.10.2014 Сообщений: 4
	10.10.2014, 23:56 [ТС]
	и на том спасибо! 0