<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><title>Re: [Lazarus] Help with a error - Failed to initialize component: No streaming method available.</title>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Style-Type" content="text/css">
<style type="text/css"><!--
body {
margin: 5px 5px 5px 5px;
background-color: #ffffff;
}
/* ========== Text Styles ========== */
hr { color: #000000}
span.rvts1 /* Heading */
{
font-size: 10pt;
font-family: 'Arial';
font-weight: bold;
color: #0000ff;
}
span.rvts2 /* Subheading */
{
font-size: 10pt;
font-family: 'Arial';
font-weight: bold;
color: #000080;
}
span.rvts3 /* Keywords */
{
font-size: 10pt;
font-family: 'Arial';
font-style: italic;
color: #800000;
}
a.rvts4, span.rvts4 /* Jump 1 */
{
font-size: 10pt;
font-family: 'Arial';
color: #008000;
text-decoration: underline;
}
a.rvts5, span.rvts5 /* Jump 2 */
{
font-size: 10pt;
font-family: 'Arial';
color: #008000;
text-decoration: underline;
}
span.rvts6
{
}
a.rvts7, span.rvts7
{
color: #0000ff;
text-decoration: underline;
}
span.rvts8
{
color: #888888;
}
span.rvts9
{
font-size: 8pt;
font-family: 'arial';
font-style: italic;
color: #c0c0c0;
}
a.rvts10, span.rvts10
{
font-size: 8pt;
font-family: 'arial';
color: #0000ff;
text-decoration: underline;
}
/* ========== Para Styles ========== */
p,ul,ol /* Paragraph Style */
{
text-align: left;
text-indent: 0px;
padding: 0px 0px 0px 0px;
margin: 0px 0px 0px 0px;
}
.rvps1 /* Centered */
{
text-align: center;
}
--></style>
</head>
<body>
<p>Здравствуйте, German.</p>
<p><br></p>
<p>What kind of components you place on DataModule?</p>
<p><br></p>
<p>Maybe some code of <span class=rvts6>TServerDataModule.</span>OnCreate do it?</p>
<p><br></p>
<p>Вы писали 4 марта 2009 г., 20:55:07:</p>
<p><br></p>
<div><table border=0 cellpadding=1 cellspacing=2>
<tr valign=top>
<td width=1 style="background-color: #0000ff;"><br>
</td>
<td width=964 style="background-color: #ffffff;">
<p><span class=rvts6>Hi, please anybody can tell me some way to debug that error or figure why is happening?</span></p>
<p><br></p>
<p><span class=rvts6>Is a migrated program from delphi. At the beginning when try to create a TdataModule , </span></p>
<p><br></p>
<p><span class=rvts6>Application.Initialize;</span></p>
<p><span class=rvts6> Application.Title:='Sample DataModule';</span></p>
<p><span class=rvts6> Application.CreateForm(TServerDataModule, ServerDataModule); </span></p>
<p><br></p>
<p><span class=rvts6><skip></span></p>
<p><span class=rvts6>I cannot find where is the problem. A step debug show it raises at application.inc</span></p>
<p><br></p>
<p><span class=rvts6>procedure TApplication.CreateForm(InstanceClass: TComponentClass;</span></p>
<p><span class=rvts6> out Reference); </span></p>
<p><span class=rvts6>[..]</span></p>
<p><span class=rvts6> if (FCreatingForm=nil) and (Instance is TForm) then</span></p>
<p><span class=rvts6> FCreatingForm:=TForm(Instance);</span></p>
<p><span class=rvts6> Instance.Create(Self); <---- raises exception</span></p>
<p><br></p>
<p><span class=rvts6>Hope somebody can give me a help.</span></p>
</td>
</tr>
</table>
</div>
<p><span class=rvts9>-- </span></p>
<p><span class=rvts9>С уважением,</span></p>
<p><span class=rvts9> Cobalt747 </span><a class=rvts10 href="mailto:cobalt747@mail.ru">mailto:cobalt747@mail.ru</a></p>
</body></html>