Displaying 3 results from an estimated 3 matches for "tform1".
Did you mean:
form1
2007 Mar 19
1
Delphi applications printing bug
...#39;t work under Wine, but works regularly under Windows ("doesn't
work" meens that nothing is encoded in the printing spool... and the
only error that is shown is "fixme:psdrv:PSDRV_EndPage Already ended a
page?")
Ie, this code works both under Windows and Wine:
procedure TForm1.Button2Click(Sender: TObject);
var SetupDialog: TPrinterSetupDialog;
begin
SetupDialog:= TPrinterSetupDialog.Create(Application);
SetupDialog.Execute;
with Printer do
begin
BeginDoc;
Canvas.TextOut(100, 100, 'Test');
EndDoc;
end;
end;
...while t...
2006 Jun 20
1
DAO 3.5 and OLEAUT32.DLL troubles...
...T_ReadValue 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, '.m...
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;...