Posts by Passella • 245 points
7 posts
-
1
votes1
answer1654
viewsA: Webbrowser click nameless button and DELPHI ID
try this: procedure TForm1.btnFazerClick(Sender: TObject); var documento: IHTMLDocument2; elemento: IHTMLElement; intIndex: Integer; begin documento := wbGeral.Document as IHTMLDocument2; for…
-
0
votes1
answer2214
viewsA: Add an A3 certificate to the Tidssliohandlersocketopenssl component
try: function THTTPReqRespCertificado.EnviarSoapRequest(const strUrl, strXmlSoapRequest: string): string; var requester: THTTPReqResp; strStrem: TStringStream; begin strStrem := nil; try requester…
-
2
votes1
answer732
viewsA: Problem defining onClick in Runtime with Pascal (Delphi/Lazarus)
Your Clicaitem process must belong to an instance of a class (object); unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 =…
-
2
votes1
answer1983
viewsA: Read lines from a Txt file and play in different Edits
try: procedure TForm1.btnProcessarClick(Sender: TObject); var stlArquivo: TStringList; begin stlArquivo := nil; try stlArquivo := TStringList.Create; stlArquivo.LoadFromFile('seuarquivo.txt');…
-
1
votes1
answer92
viewsA: C++ method for Delphi
function hook(old_function: Pointer; new_function: Pointer): Boolean; begin Result := eat_hook(old_function, new_function) and iat_hook(old_function, new_function); end;
-
0
votes3
answers2378
viewsA: How to list files and subdirectories in Delphi?
procedure TForm1.Listar(const Strings: TStrings; const strDiretorio: string; strPrefixo: string); var sr: TSearchRec; begin if FindFirst(strDiretorio + '\*', faDirectory, sr) = 0 then try…
-
0
votes1
answer557
viewsA: RTTI Free on an object created by Invoke
the problem is on the line if not Supports(lObj, IServico) then when the Supports function is called it releases the lObj and as you call the free always finally lObj.Free; end; it tries to release…