Jump to content

Gordo54

Members
  • Posts

    7
  • Joined

  • Last visited

Gordo54's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. Just found this in searching for something else. Maybe it will help. http://www.autoitscript.com/forum/index.ph...=20967&st=0
  2. Awesome - thank you! It is weird to me that the long label would affect the up and not anything else...hmmmm... Thanks again!
  3. I have a simple GUI with an up-down control and I cannot get the numbers to advance higher by pressing the up button. Here is my code: ;======================================================================== ; Create GUI ;======================================================================== #include <GuiConstants.au3> GuiCreate("Heartbeat Application", 400, 325) ;Label GUICtrlCreateLabel("Heartbeat Application", 10, 10, 375, 30) GUICtrlSetFont(-1, 17) ;Start & Pause Button $start_button = GUICtrlCreateButton("Start", 10, 270, 65, 25) $pause_button = GUICtrlCreateButton("Stop", 80, 270, 65, 25) ;Progress Timer GUICtrlCreateProgress(150, 270, 240, 25, $PBS_SMOOTH) GUICtrlSetData (-1, 0) ; UPDOWN GuiCtrlCreateLabel("Test Interval", 325, 10) GuiCtrlCreateInput("5", 325, 30, 60, 20, $ES_NUMBER) GuiCtrlCreateUpDown(-1,$UDS_ARROWKEYS) ;Response Box GUICtrlCreateInput("Test", 10, 60, 380, 100, $ES_MULTILINE) ;GUICtrlCreateInput("Test", 10, 60, 380, 200, $ES_MULTILINE) GUICtrlSetData(-1, "Click Start To Begin....") ;======================================================================== ; Begin ;======================================================================== ; GUI MESSAGE LOOP GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $start_button MsgBox(32, "Help", "Text" & @CRLF & "More Text") EndSelect WEnd Thanks in advance for your help!
  4. Awesome - thank you both!
  5. I have looked through the library and done multiple searches, so forgive me if this has been asked a hundred times before - I just couldn't find a solution. How can I open a text file and return the number of characters that are in it? Thanks in advance!
  6. I think I have solved the problem. The problem actually was in the header of the request. The content length was not correct and the server was not handling it properly. Thanks
  7. Here is the story - I'll keep it as brief as possible. My company has developed an "Application Server" that listens on port 85 by default for incoming requests. Depending on what is received, the server will invoke business logic to either execute the request on a database (for instance, add an order for a customer) or return a query from the database (lookup a customer address). The server will accept SOAP requests as well as XML requests, however, the request must be pointed at the correct location depending on the type of request. Here's what I am trying to say: If I want to send an XML request to add a customer <customer_add_request>some data</customer_add_request>, I would send the request to the server address and point it to processXML.slap (http://10.1.1.1:85/processXML.slap). Is there a way to use the TCPSend function to send a request like this? I have written an XML file that I know works, I read the file then send it to the application server. The response I get from the server basically says that it is not reaching the correct destination (i.e. SOAP.slap, ProcessXML.slap, etc). I just need some way to "tack on" 'process.XML.slap' to the end of the address:port like noted above. Is this possible? I have tried the following without success: #include <GUIConstants.au3> TCPStartUp() Dim $szServerPC = @ComputerName Dim $szIPADDRESS = TCPNameToIP($szServerPC) Dim $nPORT = 85 Dim $ConnectedSocket = -1 $ConnectedSocket = TCPConnect($szIPADDRESS,$nPORT & "/processXML.slap") MsgBox(0,"Test", $szIPADDRESS & ":" & $nPORT) Dim $szData $FileName = FileOpen("C:\request_1.xml",0) $XMLData = FileRead ($FileName) If @error Then MsgBox(4112,"Error","TCPConnect failed with WSA error: " & @error) Else MsgBox(0, "XML Data", $XMLData) TCPSend($ConnectedSocket,$XMLData) Sleep(100) $Response = TCPRecv($ConnectedSocket,1024) MsgBox(0, "XML Response", $Response); EndIf TCPCloseSocket($ConnectedSocket) Also: #include <GUIConstants.au3> TCPStartUp() Dim $szServerPC = @ComputerName Dim $szIPADDRESS = TCPNameToIP($szServerPC) Dim $nPORT = "85/processXML.slap" Dim $ConnectedSocket = -1 $ConnectedSocket = TCPConnect($szIPADDRESS,$nPORT) MsgBox(0,"Test", $szIPADDRESS & ":" & $nPORT) Dim $szData $FileName = FileOpen("C:\request_1.xml",0) $XMLData = FileRead ($FileName) If @error Then MsgBox(4112,"Error","TCPConnect failed with WSA error: " & @error) Else MsgBox(0, "XML Data", $XMLData) TCPSend($ConnectedSocket,$XMLData) Sleep(100) $Response = TCPRecv($ConnectedSocket,1024) MsgBox(0, "XML Response", $Response); EndIf TCPCloseSocket($ConnectedSocket) Do any of you brilliant AutoIT coders have any ideas? Thanks!
×
×
  • Create New...