, en gradvis gå gennem samme forretningslogik til en server med dristige + dcom med en interbase database. denne artikel blev udarbejdet af kævler af en internet chat (irc) med eric holton.jeg vil gerne takke eric for at bruge så meget tid med angivelse af de foranstaltninger, envolved.eric har aftalt at lade mig omvende kævler af vores samtale i denne artikel, til fordel for andre.,,, - -,,,,, skaber en ny ansøgning i en form og en datamodule.,,,,, navn modulet dmserver, og den vigtigste form fmservermain.,,,,, redde form som servermainform.pas, modul, som servermodule.pas, og projektet, som serverapp. dpr,,,,, fra [dristige håndtag] regning tilføje en tboldmodel (mbmodel), tboldsystemtypeinfohandle (ihmodelinfo), tboldsystemhandle (shmainhandle), og en tboldpersistencehandleib (phinterbase).,,,,, i genstand, inspektør, der har følgende egenskaber:,,,,, phinterbase,, databasename = en eksisterende gdb - fil erstattes.,, boldmodel = bmmodel,, databaseengine = dbeinterbasesqldialect3,,, shmainhandle,, systemtypeinfohandle = ihmodelinfo,, persistencehandle = phinterbase,, isdefault = sandt, autoactivate = sandt,,, ihmodelinfo,, boldmodel = bmmodel,,,,,,,,,,,, i ondestroy af datamodule omfatter følgende kode,,,,, hvis den er blevet tildelt (shmainhandle. system), med shmainhandle. systemet gør, hvis bolddirty derefter kasseres,,,,,,,,,,,, double click modellen til at bringe den model, redaktør, og gøre følgende:,, ændre "navn" og "enheds navn" fra businessclasses til dcomtestclasses,,,,, ændring "model root klasse" fra businessclassesroot til dcomtestclassesroot,,,,, tilføje en ny klasse, som hedder person med enkelt attribut "firstname",,,,, værktøjer menu, skabe database,,,,, værktøjer menu, skabe kode - sigee den deraf følgende filer med deres misligholdelse navne,,,,, værktøjer menu, skabe kom /idl guids (siger ja til, at "holde eksisterende guids?"),,,,, værktøjer menu, skabe delphi forenelig idl - redde resultaterne filer med deres misligholdelse navne,,,,, redde model, og så tæt på den model, redaktør,,,,,,,,,, fil menuen, nye, [activex] regning, "type bibliotek" og gøre følgende:,, klik [anvendelse] regning,,,,, højre klik, og vælg "viser alle type biblioteker",,,,, tik "dristige objectspace type bibliotek",,,,, højre klik og udvælge "viser udvalgte",,,,, åbne filen dcomtesterclasses. idl,,,,,,, udvælge hele teksten med kopi til?,,,,, klik [tekst] tab på tlb redaktør,,,,, erstatte alle teksten med teksten i?,,,,, klik "opdater gennemførelse",,,,, ctrl + s og redde tlb som misligholdelse navn (projectname. tlb),,,,,,,,,,,, fra det dristige kom] regning fald følgende komponenter i serveren modul tboldcomserverhandle (cshserverhandle) og en tboldcomserverelementhandle (cseelementhandle) og har følgende egenskaber:,,,,, cseelementhandle,, boldhandle = shmainhandle,, serverhandle = cshserverhandle,,,,,,,, double click cshserverhandle og genererer koden, medmindre dette dossier dcomtestservercode. pas,,,,,, kopiere udvikling fra dcomtestservercode til?,,,,, redde, og den anvendelse, skal det nok gå alt sammen.,,,,,,,,, kunden,,,,, register - - tlb fil med regsvr32 eller tregsvr (borland. delphi. bin mappe).,,,,, skaber en ny ansøgning i en form og en datamodule (form bør "anvende" modulet).,,,,, navn modulet dmclient,d den væsentligste form fmclientmain.,,,,, redde form som clientmainform.pas, modul, som clientmodule.pas, og projektet som clientapp. dpr,,,,, fra [modige kom] regning tilføje en tboldcomconnectionhandle (chcomconnection), og en tboldsystemhandlecom (shmainhandle) er der fastsat følgende egenskaber,,,,, chcomconnection,, serverclsid = udvikling af dcomtestservercode.pas (servername ejendom, bør automatisk ændres), autoconnect = sandt,,, shmainhandle,, connectionhandle = chcomconnection,, isdefault = sandt, objectname = (samme som objectname af cseelementhandle i server),,,,,,,, fra [modige kom håndtag] tab falder tboldlisthandlecom (blhperson) til deres vigtigste form,,,,,, connectionhandle = dmclient.chcomconnection, udtryk = "person. allinstances", roothandle = dmclient. shmainhandle,,,,,,,, fra [modige kom kontrol] tab falder tboldgridcom og en tboldnavigatorcom til deres vigtigste form, og som boldhandle ejendom af både blhperson.,,,,, højre klik boldgridcom1 og udvælge "edit kolonne" udtrykket ejendom i anden kolonne "firstname.",,,,, tilføje en knap til deres form, med følgende kode knyttet,,,,, dmclient. shmainhandle. system. updatedatabase;,,,,,,,,,,,, din ansøgning skal nu arbejde.,,