I want to call SHFileOperation using code injection. My code works fine while calling simple functions like MessageBox from user32.dll, but won't while calling ShFileOperation from shell32.dll. I'll post the part of the code that I think has the problem. I know the problem is in the struct implementation. Here is the image of RemoteInf...
First of all, I must state that I'm a complete newb when it comes to Delphi, allthough I did some Turbo Pascal programming in school, some fourteen years ago... I have a comercial Delphi program which uses dBase database and BDE for accessing them. I basically need to interface another application written in C# to this database, to be a...
Hi, I am trying to create a backend of my language for .NET platform. The front-end and interpreter written in Delphi. Unmanaged API just allows type definitions but no emiting of MSIL. What ways exist to generate MSIL from unmanaged code? Without using Reflection.Emit and using ILasm to attain this? Thank you. ...
Is there any work-around to create mutual referencing records in Delphi? Here's the simplified version of the code: MyRec1 = record arr: MyRec2Array; end; MyRec2 = record mr: MyRec1; end; MyRec2Array = array of MyRec2; Apparently forward declaration of record types MyRec2 = record; doesn't work in Delphi for Win32. Switchin...
I'm asking this as a follow-up to my previous question: http://stackoverflow.com/questions/3221364/what-is-a-good-way-of-accessing-dbase-files-using-bde-and-delphi It was suggested that I called upon a Delphi COM server instead of passing data though standard input/output, and I totally agree that such a solution is very limited. Basic...
I have a TQuery object, pointed to a dBase database and I'm wondering how I should go about parameterizing my insert statement. The following INSERT-query will will work fine with qry.ExecSQL: qry.SQL.Text := 'INSERT INTO KUNDE ' + '(FNAVN, ENAVN, INSTNR) ' + 'VALUES ' + '(:FirstName, :LastName, ' + IntToStr(InstructorNo) + ' )...
I'm currently using DevExpress Scheduler's GanttView in my application, it does what I need except for one thing. My scheduler has multiple resources, and each resource has numerous events. The problem with the DevExpress scheduler is the height of each resource on the screen has to be the same, that means if a resource has 15 events, an...
Hi, I want to write a simple program that detect USB Wifi plugged computer and unplug it. I am finding code or library help me to do that (C# or Delphi). Tell me if you know :) Or Code or lib that list all USB devices on computer ? Thanks ! ...
I'm using this TCanvas to draw cursors for my mice Canv := TCanvas.Create; Canv.Handle := GetWindowDC(0); .... For every mice event do the following Bitmap:=TBitmap.Create; CursorInfo.cbSize := sizeof(CursorInfo); GetCursorInfo(CursorInfo); Bitmap.Width := 32; Bitmap.Height := 32; Bitmap.Transparent:=true; DrawIconEx(Bitmap.Canvas....
Im struggling with getting information back from the printer when sending PJL to the printer. The printer supports PJL and it is a USB printer. Now getting information / examples seems to be a problem or I'm looking at the wrong places. I know on MSDN there are a lot of information, but I've tried everything I got there, from docinfo's t...
I'm working on a Delphi project with a MS SQL Server database, I connected the database with ADOConnection, DataSource and ADOProc components from Borland Delphi 7 and I added this code in behind: procedure TForm1.Button2Click(Sender: TObject); begin ADOStoredProc1.ProcedureName := 'sp_Delete_Clen'; ADOStoredProc1.Refresh; ADOStor...
I need to use a TRichEdit at runtime to perform the rtf to text conversion as discussed here. I succeded in doing this but I had to set a dummy form as parent if not I cannot populate the TRichedit.Lines. (Error: parent is missing). I paste my funciton below, can anyone suggest a way to avoid to define a parent? Can you also comment on t...
I use statically linked sqlite database and in order to compile every next version I sometimes have to do minor changes in the list of object files used. But sometimes the changes I have to make puzzles me. For example prior to version 3_6_10 this order {$L 'Objs\is.OBJ'} {$L 'Objs\mbisspc.OBJ'} was ok, but starting 3_6_12 the linker...
It is common knowledge that SameStr(S1, S2) is faster than S1 = S2, where var S1, S2: string in Delphi. (And, of course, SameText(S1, S2) is much faster than AnsiLowerCase(S1) = AnsiLowerCase(S2).) But, as far as I understand it, SameStr(S1, S2) does exactly the same thing as S1 = S2, so I cannot help but wonder why in the world the De...
I'm using WinInet to connect and retrieve information from one of our server. I'm using the following: indexdata: array of byte[1..5000] of byte; infoBuffer: array [0..5000] of char; BufferSize: DWORD; reserved: DWORD; text: string; BufferSize := Length(infoBuffer); res := HttpQueryInfo(hHttpRequest, HTTP_QUERY_RAW_HEADERS_CRLF, @inf...
Im using Rave report tool to making reports for my applications written by Delphi 7. I want to send a parameter from an edit box to my report. some runtime given information that has no any relation to my database. How can i send them to rave report for printing? ...
Need some help in creating function which can create folders recursively with giving path: C:\TestFolder\Another\AndAnother Delphi function MkDir returning IOerror = 3. MkDir('C:\TestFolder\Another\AndAnother'); Thanks in advance ...
In Delphi I have a structure like this: TCustomerInfo = Packed Record CustomerNo: Integer; FirstName: String[50]; LastName: String[50]; End; With a dummy-proc like this: procedure GetCustomer(CustomerNo: Integer; var CustomerInfo: TCustomerInfo); begin CustomerInfo.CustomerNo := 19901; CustomerInfo.FirstName := 'J...
Hello everybody. I need some help. I have generated a component in Delphi 2007 Code Gear and I need to migrate it to .NET to be used by VB.NET platform. I generated an ActiveX dll but I have been told that only the declaration of the class is visible in .NET. Actually the component I have generated is inherited by another component o...
I have been running into errors where objects are somehow freed but we end up calling FreeMem on them. Of course this causes an error since the memory has already been freed and throws an error. I know that a try-catch block would probably fix it but that's a lot of try-catch blocks. With the regular object.free the way to avoid this ...