Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/HTMLCreate.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.21 by h677, Sat Feb 18 15:30:31 2006 UTC revision 1.22 by h677, Sun Feb 19 04:31:14 2006 UTC
# Line 1190  begin Line 1190  begin
1190                                          end else begin                                          end else begin
1191                                                  CreateDefaultHTML(body, ThreadItem, ReadList, sTitle);                                                  CreateDefaultHTML(body, ThreadItem, ReadList, sTitle);
1192                                          end;                                          end;
                     body.EndUpdate;  
                                         //WebBrowserに書き込み  
                                         mStream := TMemoryStream.Create;  
                                         try  
                                                 body.SaveToStream(mStream);  
                                                 mStream.Seek(soFromBeginning, 0);  
                                                 (doc as IPersistStreamInit).Load(TStreamAdapter.Create(mStream));  
                                         finally  
                                                 mStream.Free;  
                                         end;  
1193                                  finally                                  finally
1194                                          ReadList.Free;                                          ReadList.Free;
1195                                  end;                                  end;
1196                          end;                          end;
1197                            body.EndUpdate;
1198                            //WebBrowserに書き込み
1199                            mStream := TMemoryStream.Create;
1200                            try
1201                                    body.SaveToStream(mStream);
1202                                    mStream.Seek(soFromBeginning, 0);
1203                                    (doc as IPersistStreamInit).Load(TStreamAdapter.Create(mStream));
1204                            finally
1205                                    mStream.Free;
1206                            end;
1207                  finally                  finally
1208                          body.Free;                          body.Free;
1209                  end;                  end;

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26