StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
15853834
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2013-04-06T17:20:20.327
FavoriteCount
0
LastActivityDate
2013-04-06T17:20:20.327
LastEditDate
LastEditorUserId
0
OwnerUserId
1929903
ParentId
15598776
PostTypeId
2
Score
1
ViewCount
0
LastEditorDisplayName
text
Body
I got tChromium to work under Delphi 7, it should all work the same. There are the steps I took to read elements from the DOM First I got a wrapper from this project: <a href="https://code.google.com/p/delphichromiumembedded/downloads/detail?name=dcef-r306.7z&can=2&q=" rel="nofollow">https://code.google.com/p/delphichromiumembedded/downloads/detail?name=dcef-r306.7z&can=2&q=</a> There is also one for XE2, would not take much to convert that to XE3, if you need help with that I will gladly help on request. Then declare a begin and end in the tchromium <pre><code>procedure TMainForm.crmLoadStart(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame); begin if (browser <> nil) and (browser.GetWindowHandle = crm.BrowserHandle) and ((frame = nil) or (frame.IsMain)) then FLoading := True; end; </code></pre> , <pre><code>procedure TMainForm.crmLoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean); begin if (browser <> nil) and (browser.GetWindowHandle = crm.BrowserHandle) and ((frame = nil) or (frame.IsMain)) then begin FLoading := False; // see if loaded while(httpStatusCode <> 200) do begin Application.ProcessMessages; Sleep(50); end; browser.GetMainFrame.VisitDomProc(DomProc); end; end; </code></pre> Declare a procedure called domproc like so: <pre><code>procedure DomProc(const Doc: ICefDomDocument); var Node: ICefDomNode; begin url := Doc.BaseUrl; if(url='www.goodwebsite.com') then // check if it is the right page and not add Node := Doc.Body.Document.GetElementById('idofwhatyouarelookingfor'); Node.SetElementAttribute('value','Hello world :D'); end; </code></pre> That was the most reliable way i have found so far, you need to make sure the page is well loaded and that you are getting the dom for the right frame. Hope it helps you, make sure to check out the example code in the download link above, that helped me out a lot. Have fun coding, Delphi rocks!
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. PODelphi XE3 and TChromium
 singulars
 PostTypePostTypeId
 PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USKapytanhook
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.