How to access delphi function at DPR scope -

-

I have a problem with maintenance on the old Delphi program (D7). A lot of program logic is in the DPR file (it is not a window program), providing things like database access to some units. We need to get some debug from the DB unit, but debug functionality is in DPR. We can not easily strip the functionality of the debug, because it uses those items which are unique to the DPR, like its main pipe. It would be like trying to tease spaghetti and meatball sauce.

So how do we call a function which has been declared by a subordinate unit in the DPR area? What is the equivalent of :: operator in C ++?

Please do not tell me to redesign the app. I would love it, but we will not be given the required time. Plus if we design this puppy, then it will not be in Delphi.

You can declare a method variable in the program that matches the signature of the function in the DPR In the beginning you set the method variable in the function. Inside the unit, you call the method variable.

Example:

(DPR) 

  Uses Unit 1; DoSomething function (cross: integer): integer; Start ... end; ... Start DoSomethingVar: = DoSomething; ... End;

(entity) 

  unit unit 1; Interface ... var DoSomethingVar: function (paragraph 1: integer): integer; ... Implementation ... Some Result: = DoSomethingVar (SomeParameter); ...

Comments

Post a Comment

Popular posts from this blog

c# - ListView onScroll event -

-
I am programming a simple C # application, and I need a Scallow event on the list view. So I inherited the original ListView class created in ListviewEx witch. I found out how to locate the scroll message from WinAPI and I modified the WndProc method. Now I have this WndProc: protected override zero WndProc (Ref message message) {base.WndProc (Ref I); If (m.msg == WM_VSCROLL) {onScroll (This, New EventArgs ()); }} But the problem is, I do not know how to know about scrolling information. This data should be in wParam, but there is a LOWORD macro ++ like in C in C # and I switch to find the criteria like SB_ below, SB_ENDSCROLL, SB_PAGEUP etc. there any way Need to change the LOWORD macro from C #? Or any other way to find the necessary parameters about scrolling? You can define the WParam constants as the following: Private const int WM_HSCROLL = 0x114; Private Constant WM_VSCROLL = 0x115; Private contact int SBHOZZ = 0; Private Consultant SB_VERT = 1; Private Con...
Read more

PHP - get image from byte array -

-
I am trying to create a back-end for my mobile application. I am sending the content of an image in the body of the HTTP request (output stream) as a byte array, I want to read this stream of bytes in PHP scripts and take back an image. Can anyone tell me how can I do this? Thank you. You can obtain the request body $ body = Reading from file_get_contents ('php: // input'); What you do with that data Depending on you, you can write the data in a file as you mentioned that this is image data, you can drop the data into the object can do. Another option is to use and load the image.
Read more

Linux Terminal Problem with Non-Canonical Terminal I/O app -

-
I have a small app written in C to run on Linux. Part of the app accepts user-input from keyboard , And it uses non-canonical terminal mode so that it can respond to each keystroke. The section of the code that accepts input is a simple task that is called repeatedly in the loop: char get_input () {char C = 0; Int res = reading (input_tamille, & amp; c, 1); If (RSS == 0) 0 returns; If (res == -1) {/ * snip error handling * /} return c; } It reads a letter from the terminal if there is no input within a given time limit, (c_cc [VTIME] value in the vocabulary structure), read () 0 And get_input () is called again It all works very well, I have recently discovered that if you run this app in a terminal window, and then the app Close the terminal window without ending, the app will not exit Received, but CPU intensive launches into an infinite loop, where the read () returns 0 without waiting continued. So how can I get out of the apple if it runs from the terminal win...
Read more