Ошибка object expected on line 1

В таком, примерно, духе:

function ComponentToText (AComponent: TComponent): string;
var
 BinaryStream: TMemoryStream;
 StringStream: TStringStream;
begin
 BinaryStream := TMemoryStream.Create;
 try
   BinaryStream.WriteComponent(AComponent);
   StringStream := TStringStream.Create("");
   try
     BinaryStream.Position := 0;
     ObjectBinaryToText(BinaryStream,StringStream);
     Result := StringStream.DataString;
   finally
     StringStream.Free;
   end;
 finally
   BinaryStream.Free;
 end;
end;

Использование:
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(ComponentToText(Self));
end;


Подскажите пожалуйста!
Я делаю так:

1. Сначала пишу тексте в StringStream (ну до этого создаю естественно всё):

StringStream.WriteString(text);

2. Потом использую ObjectTextToBinary:

ObjectTextToBinary(StringStream, BinaryStream);

3. И потом делаю так, что бы записать всё это дело назад в компонент:

result:=BinaryStream.ReadComponent(AComponent);

В Run-Time при открытии вылезает ошибка:

EParserError: «OBJECT expected on line 1»

Что такое?

procedure ReadComponentPropertiesFromText (AComponent: TComponent; AText: string);
var
 BinaryStream: TMemoryStream;
 StringStream: TStringStream;
begin
 StringStream := TStringStream.Create(AText);
 try
   BinaryStream := TMemoryStream.Create;
   try
     ObjectTextToBinary(StringStream,BinaryStream);
     BinaryStream.Position := 0;
     BinaryStream.ReadComponent(AComponent);
   finally
     BinaryStream.Free;
   end;
 finally
   StringStream.Free;
 end;
end;

Но все это не так просто, как может показаться…

Спасибо!

Т.е. функция BinaryStream.ReadComponent(AComponent) сразу записывает все параметры в компонент? А зачем тогда она ещё может возвращать TComponent?

Нет, не совсем ещё всё работает.
Компоненты, которые я, читая из файла, создавал в Run-Time — все хорошо создаются и работают.

Но тут мне пришлось сохранить компонент, который я создал в Design-Time — он сохранился. Но когда я его стал открывать, то мне вылезла ошибка о том, что компонент с таким именем уже существует! Как же тут быть?

Вы случайно не эту проблему имели ввиду, когда писали:
«Но все это не так просто, как может показаться…»

Я вот что-то сбился: функция BinaryStream.ReadComponent(AComponent) не должна создавать новый компонент, она должна же изменить AComponent! Почему так происходит-то? И судя по примеру, который Вы привели в [7] такого быть не должно!

> [11] Yegorchic ©   (28.03.06 21:56)
> Вы случайно не эту проблему имели ввиду, когда писали:
> «Но все это не так просто, как может показаться…»

Это. В том числе.

> Я вот что-то сбился: функция BinaryStream.ReadComponent(AComponent)
> не должна создавать новый компонент, она должна же изменить
> AComponent!

Представь такую ситуацию. Сериализуешь ты форму, а на ней лежит, допустим, кнопка. Когда ты опять пытаешься десериализовать эту форму из потока, он пытается создать и кнопку, лежащую на ней. И задает ей имя, то, которое уже есть. Т.е:
procedure TForm1.Button1Click(Sender: TObject);
var
 S: string;
begin
 S := ComponentToText(Self);
 ShowMessage(S); // посмотри внимательно на текст.
 ReadComponentPropertiesFromText(Self,S);
end;
приведет к исключению «A component named Button1 already exists».

Честно говоря, не совсем, видимо, понял, чего нужно добиться.

Вот так же работает?
procedure TForm1.Button1Click(Sender: TObject);
var
 S: string;
begin
 // "запоминаем" состояние компонента
 S := ComponentToText(Edit1);
 // изменяем его
 Edit1.Text := "123";
 // пауза
 Repaint;
 Sleep (1000);

Код не очень маленький, и может показаться Вам немного странным

Дело в том, что я пишу небольшую программу с использованием GLScene (наверное знаете — оболочка, так сказать, для OpenGL). В процессе работы с программой требуется сохранить саму сцену со всеми объектами на ней (конечно, в GLScene предусмотрена функция сохранения сцены, но она плохо сделана (это не только моё мнение) — поэтому пришлось писать самому).
Сама сцена при старте программы пустая — присутствуют только две камеры (созданные как раз в Design-Time). Во время работы с программой на этой сцене создаются объекты (в RunTime, естественно).
Когда дело доходит до сохранения, то я сохраняю все объекты созданные в Run-Time + те самые 2 камеры — всё сохраняется. Как дело доходит до открытия сцены (программа уже перезапущена, естественно), то все объекты созданные в Run-Time очень хорошо и правильно открываются, но когда дело доходит до тех двух камер — программа выдаёт ту самую ошибку о том, что такое объект уже существует!
Да, чуть не забыл сказать — в одной из камер находится источник света (ну он тоже как компонент). Но он тут не причём я думаю.

Да, действительно такие объекты (эти две камеры) уже существуют, но при использовнии фунции BinaryStream.ReadComponent(), если параметр не nil, должен просто измениться компонент, а не создаваться новый! Такое же не происходит с TEdit»ом, например!

Джо, кажется почти мне стало ясно в чём дело: у меня же две камеры — в одной есть источник света (ну как компонент), и эта камера «открывалась» первой. На этом месте, соответственно, процесс открытия остановился.
Я решил оставить для открытия только одну камеру — вторую, в которой ничего нет. Она открылась. Т.е. те компоненты, у которых нет child»ов — хорошо открываются.

Что же тогда делать с компонентами, которые принадлежат ещё какие-то компоненты — они не открываются!

Yegorchic:
>>Что же тогда делать с компонентами, которые принадлежат ещё какие-то компоненты — они не открываются!

Ясно, что делать. Смотрим, есть ли у этого компонента другие, принадлежащие к нему, и если есть, то их сохраняем тем же макаром.
Обычно за это отвечает свойство Parent/Owner.
Свойство Owner у некоторого компонента обычно заявляет о том, что этот компонент просто ЛЕЖИТ на другом компоненте — например, метка на TPanel. Свойство Parent обычно заявляет о том, что компонент с этим свойством создается родительским компонентом (обозначенным в свойстве Parent) и им же убивается. Так что делаем следующим образом:
Сохраняем главный компонент. Затем ищем все компоненты, у которых в свойстве Parent проставлен главный компонент, и тоже их сохраняем.

P.S.: Писал на скорую руку, возможны ошибки. Если что, поправьте меня.

> Сохраняем главный компонент. Затем ищем все компоненты,
> у которых в свойстве Parent проставлен главный компонент,
>  и тоже их сохраняем.

Да, но когда я сохраняю главный компонент — все компоненты, которые принадлежат ему сохраняются вместе с ним! Или может я чего-то не понимаю… :

• Remove From My Forums

• Question

• Hi all

  i have created an html file with javascript & DOM embedded into it !!! I have just tried to validate an XML file against a schema. But everytime i click on the llink ‘Validate’ , i get an error : ‘object required’

  i have made a call to the javascript function frm the html anchor tag… like

  <a href=»javascript:doValidate()«>Validate</a>

  also i have tried : <a href=»#» onclick=»javascript:doValidate()»>Validate</a>

  For further reference here is my code :
  <html> <head><title>Untitled Document</title>
  <script language=»javascript«>
  var newWindow;

  
  function doValidate()
  {
  

     if((document.frmTransform.TxtXMLFileName.value).length== 0)
     {
         alert(«Invalid XML File Name»);
         return;
     }
    if((document.frmTransform.TxtXSDFileName.value).length== 0)
    {
         alert(«Invalid XSD File Name»);
         return;
     } 
    var xmldoc= new ActiveXObject(«Msxml2.FreeThreadedDOMDocument.6.0»);
    xmldoc.async= false;
    xmldoc.load(document.frmTransform.TxtXMLFileName.value);
    var ns= xmldoc.documentElement.namespaceURI;
    xmldoc.validateOnParse= true;   
    var xsddoc= new ActiveXObject(«Msxml2.XMLSchemaCache.6.0»);
    xsddoc.add(ns,document.frmTransform.TxtXSDFileName.value); 
    xmldoc.schemas= xsddoc;
    xmldoc.load(document.frmTransform.TxtXMLFileName.value); 
    var error= xmldoc.parseError;  
     newWindow= window.open(‘Activity1.html’, ‘_new’, ‘location=0,status=1, toolbar=0, menubar= 0, scrollbars=0, directories=0,   resizable=0, width=600, height=600′);  
   
    if(error != » «) 
    {
      newWindow.document.write(‘<html> <head> <title>Schema Validator</title> </head> <body> 
                                              <p><b>Error validating the document</b></p> <br>‘);  
      newWindow.document.write(‘<b>Error URL: </b> <br>‘ + error.url + ‘<br>‘);  
      newWindow.document.write(‘<b>Error Line: </b> <br>‘ + error.line + ‘<br>‘);  
      newWindow.document.write(‘<b>Error Position: </b> <br>‘ + error.linepos + ‘<br>‘);  
      newWindow.document.write(‘<b>Error Reason: </b> <br>‘ + error.reason + ‘<br>‘);  
      newWindow.document.write(‘</body> </html>‘);
     }
     else
     {
       newWindow.document.write(‘<html> <head> <title>Schema Validator</title> </head> 
                                               <body><b>No Error</b></body> </html>‘); 
       }
  } 

  function doReset()
  {
      document.frmTransform.TxtXMLFileName.value

  =» «;
      document.frmTransform.TxtXSDFileName.value=» «;
      if(!(typeof newWindow== «undefined»))
          newWindow.close();
  } 
  </script> 
  </head>  

  and after this within the body tag i have designed an interface ,, which also contains link buttons of ‘Validate’ and ‘Reset’ !!!
  I am using Windows XP SP 2 and IE 7.

  Any help on this ?????

  • Moved by

    Friday, September 18, 2009 5:04 PM
    (From:CRM)

• Remove From My Forums

• Вопрос

• Help!  After start-up   I get this message/warning     error object expected on line 1     Anything I can do about that?  Thanks for your time!