- Code: Select all
type
TForm1 = class(TForm)
//...
public
FSourceVistior:ICefStringVisitor;
userId: string;
departmentId: string;
end;
procedure onGetWebValueProc(const str: ustring);
begin
with Form1 do
begin
userId := GetUserId(str);
departmentId := GetDepartmentId(str);
mmo1.Lines.Add('webvalue: '+ userId + ',' + tipsStudy + ',' + departmentId);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FSourceVistior := TCefFastStringVisitor.Create(onGetWebValueProc);
end;
procedure TForm1.btnStudyClick(Sender: TObject);
begin
Chromium1.Browser.MainFrame.GetSource(FSourceVistior);
ShowMessage('webvalue: '+ userId + ',' + tipsStudy + ',' + departmentId);
end;
When the first execution, onGetWebValueProc code ，Memo can get it correctly the result of userId , But userId is null when ShowMessage。
On the second execution, ShowMessage, userId gets the correct result (rather than a null value).
Can someone tell me why? Thanks!
