Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: sijgs
  • Order by date
  1. sijgs

    Prevent debugger to step into specific code.

    ...product based on what THEY think and "I" can't get the product "I" want "UNLESS" "I" agree with "THEM" To me, their development cycle is pure ** ( that's 'S' and 'B' in reverse order) I LOVE Delphi, and I HATE the path Inprise/Borland/etc have taken... you have no choice unless you agree...
  2. sijgs

    help with USB component

    An explanation of "why you can't use it" and "my application" would be prudent here. Firstly, we have no clue what your application is/does Secondly, "I'm not able to use it" is ambiguous. Does that mean, 1) you implemented the code and it doesn't work 2) you can't figure out how to integrate...
  3. sijgs

    Prevent debugger to step into specific code.

    ...available to see if there was a way to "skip" or "set" but to no avail. I'd like to see it added, but then again, based on the price of the current Delphi, I'll be on D6 when I die. The price they charge for the product.... I've been "*held-up*" enough for my lifetime. Regards and HTH, JGS
  4. sijgs

    Text search loop with 2 known endpoints

    Ryan: Well the end point of a <TD.... is a </TD>, so right there you have a start and an end. Beyond that, <A href= is a start point and </A> is an endpoint out of which you can extract "BUDDY NAME GOES HERE" If there are multiple TD /TD pairs, search each one out, and then loop on the A /A...
  5. sijgs

    FormKeyDown with other component focused !?

    You could put a procedure in like: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin Edit2.SetFocus; Key := #$0; end; and pull the focus away from edit1 Regards and HTH, JGS
  6. sijgs

    services

    Found this code on the web and saved it... haven't tried it yet. This code basically starts/stops the webservice. Uses WinSvc; procedure TForm1.Button1Click(Sender: TObject); var sc_h, sc_man : SC_HANDLE; begin sc_man := OpenSCManager(nil, nil, SERVICE_START); if sc_man = 0 then...
  7. sijgs

    Any equivalent to the old Pascal &quot;keypressed&quot;?

    OLVTM: You could draw your circle continuously by using a timer and vary the interval to vary the speed at which it's drawn. At that point, onbuttonclicks could be used to change the color etc. Would advise a Timer1.Enabled := False; : button click event code Timer1.Enabled := True; in...
  8. sijgs

    Indy Components

    Gary: Does your code typed in like mine not compile??? Mine compiles... AND, The help said that TIdTCPClient is a derivative of TIdTCPConnection which has Binding in it. If you wouldn't mind.... just stick the code in there and tell me what happens, no compile, Address exception or??? If...
  9. sijgs

    Indy Components

    00thaphay: Forgot to mention you'll need WinSock in the uses list. JGS
  10. sijgs

    Indy Components

    00thaphay: I don't know if this will work, but it won't take long to try. Basically if ReadLn isn't timing-out, the only way I know to make it not "wait" is by setting the socket to non-blocking. This MAY do it... put this code in your timer event prior to the readln and give 'er a shot...
  11. sijgs

    Indy Components

    00thaphay: The help states: const ATimeout: integer = IdTimeoutInfinite Time-out in milliseconds. Default value IdTimeoutInfinite. (-2) : : Use a custom time-out (ATimeout) value to change the number of milliseconds to wait for a response from the peer connection before a time-out occurs...
  12. sijgs

    passing strings to stored procedures

    delfy: Any chance that data contains x'00'? Chances are the SQL server is written in VC++ and even though Delphi can handle strings with x'00' embedded in them, C will stop short. Regards and HTH, JGS
  13. sijgs

    Indy Components

    ...do the following: Procedure TForm.Timer1Timer(Sender:TObject); Var yada Begin Timer1.Enabled := False; : : Your code : Timer1.Enabled := True; End; I have found that multiple events can occur and without the disable you have x**3 interupts hanging out there .. Regards and HTH, JGS
  14. sijgs

    OpenDialog.execute lock the folder

    FamWS: add OpenDialog1.Options := [ofNoChangeDir]; either in code or set it in the options if it is on your form. Tested it both ways and was able to rename the directory immediately with the test app still running. 1. Var OpenDialog1 : TOpenDialog; : : Begin OpenDialog1 :=...
  15. sijgs

    Newbie question: what's the best version to start wtih?

    SilverSpecV: With all due respect for my learned colleagues, I have stuck with D6. The reasons are these: I do a lot of TCP/IP programming and it does it. I do a lot of direct serial port access and it does it. I haven't a CLUE what to do with .NET (eh, call me old fashioned) It's CHEAP...
  16. sijgs

    terminate application if condition not met

    AP81: Thank you for your appreciation. Although other posts have suggested alternative methods of "termination", one must stop to realize that during FormCreate, "we're not all there yet". Yes, abrupt (I'm an ol' mainframer so we call it abend) termination of the program can cause some...
  17. sijgs

    terminate application if condition not met

    Adam: I put together a little test: procedure TForm1.FormCreate(Sender: TObject); begin MessageDlg('Going to quit', mtWarning, [mbOK], 0); Halt; end; And it's not there in the task manager afterward. Regards and HTH, JGS
  18. sijgs

    load my app at windows startup

    I got a slightly different version from somewhere.... maybe a combination of the two??? //================================================= //Run/Runonce program at system startup //================================================= Procedure OnStartup (const PgmTitle, CmdLine: String; RunOnce...
  19. sijgs

    Reading files of any size in Delphi

    A little more information would be helpful.... do you want to read the whole file into memory at once? Does it NEED to all be in memory at once? .. or .. is it a record oriented file? .. or is it a variable-length-delimeted file .. or .. ???? When you say "...any size", is that record size...
  20. sijgs

    whats the best way to do this ??

    Tnx Aaron .... guess we "all" have snippet buckets ... JGS

Part and Inventory Search

Back
Top