OSDN > Find Software > newbbs > SCM > git > newbbs > Commit

newbbs
Fork

newbbs: Commit

一応落ち着きました　まだファビコンは設定されません　なぜでしょう

--- a/tool/Unit2.pas

+++ b/tool/Unit2.pas

		@@ -108,26 +108,25 @@ var
108	108	s, s2: string;
109	109	t: TMemoryStream;
110	110	begin
	111	+ Button4Click(nil);
111	112	if OpenPictureDialog1.Execute = true then
112	113	with FDTable1 do
113	114	begin
114		- i := RecordCount + 1;
115	115	t := TMemoryStream.Create;
116	116	Image1.Picture.Graphic.SaveToStream(t);
117	117	s := TNetEncoding.Base64.EncodeBytesToString(t.Memory, t.Size);
118		- AppendRecord([i, 'BBS_bn.jpg', s]);
119		- inc(i);
	118	+ AppendRecord([1, 'BBS_bn.jpg', s]);
120	119	t.Position := 0;
121	120	Application.Icon.SaveToStream(t);
122	121	s := TNetEncoding.Base64.EncodeBytesToString(t.Memory, t.Size);
123		- AppendRecord([i, 'favion64.ico', s]);
124		- inc(i);
	122	+ AppendRecord([2, 'favion64.ico', s]);
125	123	t.Position := 0;
	124	+ i:=1;
126	125	for s2 in OpenPictureDialog1.Files do
127	126	begin
128	127	openPicture(t, s2);
129	128	s := TNetEncoding.Base64.EncodeBytesToString(t.Memory, t.Size);
130		- AppendRecord([i, Format('slide%d.jpg', [i]), s]);
	129	+ AppendRecord([i+2, Format('slide%d.jpg', [i]), s]);
131	130	inc(i);
132	131	end;
133	132	t.Free;