Displaying 3 results from an estimated 3 matches for "button1click".
2006 Jun 20
1
DAO 3.5 and OLEAUT32.DLL troubles...
...alue BSTR length = -1?
fixme:ole:MSFT_ReadValue BSTR length = -1?
----
Replacing the builtin OLEAUT32.DLL with the native DLL everything works
ok.
Is this a known bug or should I post it in the Bugzilla?
bye!
Paolo
This is an extract of the procedure that causes the problem:
procedure TForm1.Button1Click(Sender: TObject);
var
daodbeng: DAODBEngine;
daodb: DAODatabase;
daors: DAORecordset;
begin
try
daodbeng:= OpDAO35.CreateEngine; // Crea il DBEngine, e passa
internamente la licenza
daodb:=
daodbeng.OpenDatabase(ChangeFileExt(Application.ExeName, '.mdb'),
fal...
2010 Sep 02
1
XmlHttpObject
Hello!
Is there a reason why applications using xmlhttprequest don't work?
Simple Delphi code.
Uses comobj;
procedure TForm1.Button1Click(Sender: TObject);
var xmlhttp: variant;
begin
xmlhttp:=createoleobject('MSXML2.XMLHTTP.3.0');
xmlhttp.open('GET', edit1.text, true);
xmlhttp.send();
while (xmlhttp.readystate<>4) do application.processmessages;
memo1.lines.add(xmlhttp.responsetext);
end;
Screen cap:...
2007 Mar 19
1
Delphi applications printing bug
...nterSetupDialog;
begin
SetupDialog:= TPrinterSetupDialog.Create(Application);
SetupDialog.Execute;
with Printer do
begin
BeginDoc;
Canvas.TextOut(100, 100, 'Test');
EndDoc;
end;
end;
...while this code works only under Windows:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Printer do
begin
BeginDoc;
Canvas.TextOut(100, 100, 'Test');
EndDoc;
end;
end;
Enabling deeper log on "psdrv", and comparing the log files of the two
version ('-' is the non-working one, "+" is the...