component to string 自定义窗体-白红宇

component to string 自定义窗体

阅读量：6919 次

发布时间：2019-06-27

本文共 2572 字，大约阅读时间需要 8 分钟。

component to string

string to component

StringToComponent

ComponentToString

ObjectTextToBinary

ObjectBinaryToText

ReadComponent

RegisterClass

WriteComponentResFile

ReadComponentResFile

#include 
      
              //For STL auto_ptr class class MyScrollBar : public TScrollBar{__published:    // IDE-managed Componentsprivate:    // User declarationspublic:        // User declarations    __fastcall MyScrollBar(TComponent* Owner);}; __fastcall MyScrollBar::MyScrollBar(TComponent* Owner)    : TScrollBar(Owner){} void RegisterClassesWithStreamingSystem(void){  // Make sure that, as part of the startup  // code, the streaming classes are registered  // with the streaming system.   #pragma startup RegisterClassesWithStreamingSystem   Classes::RegisterClass(__classid(MyScrollBar));} MyScrollBar *ScrollBar1; String __fastcall ComponentToString(TComponent *c){  String as;  std::auto_ptr
       
         pms(new TMemoryStream);  std::auto_ptr
        
          pss(new TStringStream(as));   try  {    pms->WriteComponent(c);    pms->Seek(0, soFromBeginning);    ObjectBinaryToText(pms.get(), pss.get());    pss->Seek(0, soFromBeginning);    as = pss->DataString;  }  catch(...)  {    ShowMessage("Streaming error.");  }   return as;} void __fastcall TForm1::Button1Click(TObject *Sender){  Memo1->Text = ComponentToString(ScrollBar1);} TComponent *__fastcall StringToComponent(String as) {  std::auto_ptr
         
           pms(new TMemoryStream);  std::auto_ptr
          
            pss(new TStringStream(as));  TComponent *pc;   try  {    ObjectTextToBinary(pss.get(), pms.get());    pms->Seek(0, soFromBeginning);  }  catch(...)  {    ShowMessage("Streaming error.");  }   pc = pms->ReadComponent(NULL);  return pc;} void __fastcall TForm1::Button2Click(TObject *Sender){  TComponent *temp = StringToComponent(Memo1->Text);  ScrollBar1->Free();   ScrollBar1 = dynamic_cast
           
            (temp); ScrollBar1->Parent = Form1; ScrollBar1->Visible = TRUE;} __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){ ScrollBar1 = new MyScrollBar(Form1); // Form1 will clean up the scroll bar. ScrollBar1->Parent = Form1; ScrollBar1->Visible = TRUE; ScrollBar1->Top = 48; ScrollBar1->Left = 250; ScrollBar1->Name = "Ricksbar";}