Code center > Darwinbots Program Source Code
Status of IM mode
Botsareus:
well this is exiting, apparently my pipe server side of DBIM got completely messed up after I ran a cleanup on SVN.
Ammeh, here is basically a working version that should tell you everything you may need:
--- Code: ---...
Begin Server.PipeRPC pipeCalculate
Left = 2280
Top = 1080
_ExtentX = 847
_ExtentY = 847
PipeName = "Calc Server Pipe"
End
...
Option Explicit
Private Sub Form_Load()
pipeCalculate.Listen
End Sub
Private Sub Form_Unload(Cancel As Integer)
pipeCalculate.ClosePipe
End Sub
Private Sub pipeCalculate_Called(ByVal Pipe As Long, Request() As Byte, Response() As Byte)
Text1 = Text1 & CStr(Request) & vbCrLf
Response = "0"
End Sub
--- End code ---
edit:
Funny, as soon as I created a fresh copy from the SVN my problem magically disappeared.
Ammeh:
Are we still using the input/output folder method? Also, can has a copy of the DB2 exe with the pipes stuff in it?
Botsareus:
I already include the pipe stuff since version 2.45.03C.
Here is a copy jic.
If you need to codes for all this stuff go to SVN and grab em. You will be interested in the DB2 and Pipe Server folders.
Here also is a build of the pipe server side.
edit:
--- Quote ---Are we still using the input/output folder method?
--- End quote ---
Yes, and the data is being passed by command line to DarwinbotsIM.exe
--- Code: --- s = App.path & "\DarwinbotsIM.exe" _
& " -in " & iq _
& " -out " & oq _
& " -name " & IntOpts.IName _
& " -pid " & Str(GetCurrentProcessId())
IntOpts.pid = shell(s, vbNormalFocus)
--- End code ---
Ammeh:
Could you remove the spaces from the pipe name? I think it's causing a glitch in the pipe handler in Delphi.
Botsareus:
Sorry for the late reply, I have no stable source for Internet right now.
I uploaded the requested source code changes to the repository.
Navigation
[0] Message Index
[#] Next page
[*] Previous page
Go to full version