Jump to content
xisto Community

DeveloperX

Members
 View Profile  See their activity

  • Content Count

    135

  • Joined

  • Last visited

Posts posted by DeveloperX

  1. Posted · Edited by DeveloperX (see edit history) · Report reply

    I have computer with both interfaces: IDE and SATA.

    And I have two hard drives: IDE 80Gb and SATA 160Gb.

    I think that you can't connect SATA hard drive to IDE interface with any cable...

     

    I quote next sentences from Computing forum.

    SATA will load your games faster. If the game consumes all your RAM and needs to fetch data from your hard disk that will speed up too.

    I dont think your frame rates will be affected at all. Leave that up to your cpu and video card.

     

    Serial ATA over Parallel for airflow in some situations can be enough to determine what to get...

    Either way, Rounded IDE cables are beautiful with UV smilies painted on them.

    And follow I quote at TSLG.

    To the best of my knowledge, SATA will not connect to PATA or IDE. The data

    connections as well as the power connections are different. But I have seen

    small adaptor cards which fit into the IDE connection ports and converts to

    sata. They also include power adaptors. I have never tried them out though.

    I have seen them in shops. They are also very cheap.

    And next sentenses i quote at QUE pub.

    Serial ATA (SATA) is the emerging replacement for ATA/IDE drive interfacing. While early SATA drives did not provide performance significantly faster than ATA/IDE drives, the newest SATA drives feature support for command queuing, which can provide better real-world performance in some cases. This article discusses how command queuing works and helps you determine which products support which types of command queuing.

     

    If you're planning a motherboard or system upgrade which will include SATA RAID, you should look for motherboards and drives which support command queuing. However, if you've decided to skip SATA-150 drives altogether and wait for the 300MBps SATA-300 drives, they'll start arriving in 2005, and NCQ is an integral part of that specification.

     

    And of course my computer specs:

     

    MB: Intel 925G

    Hard Drive: WD 160Gb 7200rpm

    CPU: Intel Pentium 4 3.00Ghz

    RAM: 1024 Mb DDRII

     

    and so on

     

    Actually I use my computer for playing computer games like Need for Speed: Most Wanted and programming in Delphi, C++ Builder, Notepad...

     

    What is your specs of your computer? And how about MB?

     

    And i'm sorry for many quotes, but it needed... (for admin)

  2. Posted · Edited by DeveloperX (see edit history) · Report reply

    I need API or Assembler function (read, fast function) to get Hexadecimal numer of Windows Char, somthing like this:

     

    function GetHexadecimal( s: char ): string;

     

    Know someone this kind function ?!? Need urgent


    I wrote own user function for this problem!

    I called it GetHexadecimal for you.

    It calling specs is GetHexadecimal( s ), where s is some windows char.

    It returns hexadecimal value in string GetHexadecimal( s ): string.

     

    function GetHexadecimal( s: char ): string;

    begin

    //this function returns a Hexadecimal numer of Windows Char.

    //autor Tagiltsev Yuriy

    //date of creation: 06/07/2006

    result:=inttohex(ord(s));

    end;

     

    Please use this function in your programs in function GetHexadecimal( s: char ): string; format.

    Actually I know many convertion functions like this!

    Or I can write any function more or less that this function GetHexadecimal( s: char )!

    And of course CHECK this function and write me about BUGS!!! Post me bugs report...

  3. Posted · Report reply

    Beginally I think that it web browser is very underconstruction and beta...

     

    My personal resume of IGF's Browser:

     

    1. Tab names not on one line

     

    2. After tab switching page always reload

     

    3. Very long time of first loading (like 3 * IE6)

     

    4. It browser running on IE engine

     

    5. Google oriented browser, very oriented

     

    !No errors was occured while my using.

     

    Totally, I like IGF's Browser!

  4. Posted · Report reply

    I understand your problem.

    You must install any webserver software with cgi support.

     

    For example: Apache, IIS and other...

     

    As for me, I use Apache 2 webserver software for execute my scripts on my local computer.

     

    Apache webserver software you can download at http://www.apache.org/.

    And IIS you can install from Windows 2000/XP/2003 installation disk in Control Panel/Add or Remove Software section.

     

    After installation of any webserver software you must config it to execute php scripts.

     

    For example: Apache - in configuration file in Conf directory; IIS - in special settings dialogs in Control Panel of Windows.

     

    This is very real way to running php scripts locally.

    And your php-html output on your computer will be such as on your hosting server where installed Apache (*nix based hosting) or IIS (Windows based hosting)

     

    For executing your 'myScript.php' you must put it into special webserver directory:

    /inetpub/www/ - IIS

    /Apache/htdocs/ - Apache.

     

    And type in your browser address bar url like:

    LOCALHOST/myScript.php

    or

    http://forums.xisto.com/no_longer_exists/

     

    After it press Enter and your script will load in your browser like on your webhosting server.

     

    Good luck!

  8. Posted · Report reply

    I have ATI Radeon Sapphire 9600 XT card (128mb) tooo.

    This is a very nice card.

    I bought this for Need for Speed: Most Wanted gaming...

    But I havn't yours problem.

    My fan works without any noises.

    And I think that you should check following instruction by Inspiron

    Also, check if the ball bearings are properly lubricated. To do that, make sure you remove the fan from the motherboard first before lubricating with electronic lubricant.

     

    You can try removing hte two screws to see what you can do with it inside. After all, the screws can be placed back.


    P.S. moldboy, your card is AGP or PCI-E release???

  10. Posted · Report reply

    well you can use both for different things but with php you can do anything and basically ther same with pearl so there isnt really very much diference in which is better than the other


    I agree. I use PHP and Perl scripts in my projects.
    Finally I think that PHP, Perl and ColdFusion is best script languages!
    it's true.

  11. Posted · Report reply

    Guys, "Cloning Technology" - Problem or Solution???

     

    What happens in cloning in very simple terms is that reproduction occurs by a man-made process. Genetic material is reproduced into a mechanical physical way instead of by the combination of two different genetic materials.

    The result is that the properties of the cloned individual are identical to the donor of the original genetic material. If you took a cell from me and cloned it, you would have a person who would have my physical properties.

    He would not have my memory or even my personality, but he would have my eye color, hair color, sex, height, skin color, etc. If you took five cells from my body and cloned them, you could produce five individuals physically like me.

     

    these thought totally like me and i copied it from http://forums.xisto.com/no_longer_exists/ with my remarks.

  12. Posted · Report reply

    in my childhood i tried MS Outlook.I like it some features:1. truly html browser2. imap connectionBut at present i use Mosilla Tthunderbird.I love it because:1. small size to download for installing.2. Built-in RSS capabilities, powerful quick search, spell check as you type3. leading-edge junk mail filters. Each time you mark messages as spam, "Thunderbird improves its filtering so you can spend more time reading the mail that matters". 4. enterprise and government grade security features including S/MIME, digital signing, message encryption, support for certificates and security devices.5. protecting from many worms and viruses6. install extensions to add new features, or change the look of your browser with themesVery nice program! and free!.

  13. Posted · Report reply

    My favorite freeware programs:

     

    VoIP telephony

    OpenH323 Gatekeeper - The GNU Gatekeeper is an open-source project that implements an H.323 gatekeeper. A gatekeeper provides call control services to the H.323 endpoints. It is an integral part of most usefull internet telephony installations that are based on the H.323 standard.

     

    Text editor with syntax highlight

    Aditor 3.10 - Advanced text editor for Windows 95/98/NT. The ideal tool for programmers and Web masters. Fully-customizable power syntax highlight schemes for HTML, C/C++, Delphi, Java, Perl and any other user-defined programming languages. Highlighting and activating URL directly from editor. Multilanguage support. Unlimited Undo/Redo, powerfull Find/Replace with regular expression and possibility to replace in multiply files. Unlimited number of bookmarks for each file. Clip libraries support, which allows you add any of your own clips to Aditor. Fully customizable appearance - colors, fonts, toolbar etc.. Minimizing to system tray. Execution files without leaving the editor. Removing HTML tag, case conversion, bracked autocomplete, word wrap. Possibility to send email directly from the editor, autosave and many, many more.

     

    and you?

  14. Posted · Report reply

    My combination is Agnitum Outpost Pro 3.5 and Kaspersky Anti-Virus Personal because:

     

    1. I'm russian

    2. Kaspersky Anti-Virus Personal provide these features:

    Premium Protection from Viruses and Spyware

    PCs connected to the Internet are under constant attack by viruses, Trojans, Internet worms and other malware. Kaspersky? Anti-Virus Personal monitors all virus and spyware entry points leaving you with a clean and safe machine.

     

    User friendly security

    Kaspersky Anti-Virus Personal is easy to install and use. The easy to understand interface and automated functions make the program the right choice even for inexperienced computer users.

     

    Two-tier email protection

    Kaspersky Anti-Virus Personal scans all incoming and outgoing mail in real-time in all email applications. The program additionally checks all attachments, including zipped and archived files, embedded OLE objects, and detects viruses in mail databases.

     

    Maximized scanning depth

    Kaspersky Anti-Virus Personal detects viruses in over 1,300 compressed and archive file formats, and disinfects ZIP, ARJ, CAB, RAR, ICE and LHA files.

     

    Free hourly updates

    New malicious programs are constantly released by malware writers. Kaspersky Lab responds by releasing updates to antivirus databases every hour round-the-clock. Updates download automatically via the Internet to ensure that your computer is always armed to ward off new virus threats.

     

    Support for laptops

    Kaspersky Anti-Virus Personal ensures that laptops are always fully protected, even when they are not connected to the network. If the connection is interrupted during updating of antivirus databases, the partial updates are saved and the missing parts are automatically downloaded once the connection is re-established.

     

    Round-the-clock technical support

    Should you have any questions about viruses, spyware, or about installing and using Kaspersky Anti-Virus Personal, our customer support staff will answer them any time of the day or night

     

    List of features copied from http://usa.kaspersky.com/store/kaspersky-store.

  17. Posted · Report reply

    3 different functions to getting real CPU speed.

    First.

    function GetCPUSpeed: real;   function IsCPUID_Available: Boolean; assembler; register;   asm 			PUSHFD							POP	EAX			{ Flags to EAX } 			MOV	EDX,EAX		{ store current flags }			XOR	EAX,$200000	{ w/o ID bit }			PUSH	EAX		   { to EAX } 			POPFD				{ to flags } 			PUSHFD				{ return }			POP	EAX			{ return to EAX } 			XOR	EAX,EDX		{ check ID }			JZ	  @exit		 { no, CPUID not accessable }			MOV	AL,True		{ Result=True } 			@exit:   end;   function hasTSC: Boolean;   var 	Features: Longword;   begin 	asm 			  MOV	Features,0	{ Features = 0 } 			  PUSH	EBX 			  XOR	EAX,EAX 			  DW	  $A20F 			  POP	EBX 			  CMP	EAX,$01 			  JL	  @Fail 			  XOR	EAX,EAX 			  MOV	EAX,$01 			  PUSH	EBX 			  DW	  $A20F 			  MOV	Features,EDX 			  POP	EBX 			  @Fail: 	end; 	hasTSC := (Features and $10) <> 0;   end; const   DELAY = 500; var   TimerHi, TimerLo: Integer;   PriorityClass, Priority: Integer; begin   Result := 0;   if not (IsCPUID_Available and hasTSC) then Exit;   PriorityClass := GetPriorityClass(GetCurrentProcess);   Priority := GetThreadPriority(GetCurrentThread);   SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);   SetThreadPriority(GetCurrentThread, 	THREAD_PRIORITY_TIME_CRITICAL);   SleepEx(10, FALSE);   asm 			DB	  $0F		   { $0F31 op-code for RDTSC Pentium } 			DB	  $31		   { returns 64-bit Integer } 			MOV	TimerLo,EAX 			MOV	TimerHi,EDX   end;   SleepEx(DELAY, FALSE);   asm 			DB	  $0F		   { $0F31 op-code для RDTSC Pentium } 			DB	  $31		   {  returns 64-bit Integer } 			SUB	EAX,TimerLo 			SBB	EDX,TimerHi 			MOV	TimerLo,EAX 			MOV	TimerHi,EDX   end;   SetThreadPriority(GetCurrentThread, Priority);   SetPriorityClass(GetCurrentProcess, PriorityClass);   Result := TimerLo / (1000 * DELAY); end;

    Second. Returns speed in MHz.
    Program ....;   .. ..    const ID_BIT=$200000; // EFLAGS ID bit function GetCPUSpeed: Double; const   DelayTime = 500; var   TimerHi, TimerLo: DWORD;   PriorityClass, Priority: Integer; begin try   PriorityClass := GetPriorityClass(GetCurrentProcess);   Priority := GetThreadPriority(GetCurrentThread);   SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); SetThreadPriorit(GetCurrentThread,THREAD_PRIORITY_TIME_CRITICAL);   Sleep(10);   asm 	dw 310Fh // rdtsc 	mov TimerLo, eax 	mov TimerHi, edx   end;   Sleep(DelayTime);   asm 	dw 310Fh // rdtsc 	sub eax, TimerLo 	sbb edx, TimerHi 	mov TimerLo, eax 	mov TimerHi, edx   end;   SetThreadPriority(GetCurrentThread, Priority);   SetPriorityClass(GetCurrentProcess, PriorityClass);   Result := TimerLo / (1000.0 * DelayTime);   except end; end; procedure TForm1.Button1Click(Sender: TObject); var cpuspeed:string; begin cpuspeed:=Format('%f MHz', [GetCPUSpeed]); edit1.text := cpuspeed; end;

    Third (WinApi).
    function RdTSC : int64; register; asm   db   $0f, $31 end;												  function GetCyclesPerSecond : int64; var   hF, T, et, sc : int64; begin   QueryPerformanceFrequency(hF);						  // HiTicks / second   QueryPerformanceCounter(T);						// Determine start HiTicks   et := T + hF;		   // (Cycles are passing, but we can still USE them!)   sc := RdTSC;														  // Get start cycles   repeat									// Use Hi Perf Timer to loop for 1 second 	QueryPerformanceCounter(T);							// Check ticks NOW   until (T >= et);					//  Break the moment we equal or exceed et   Result := RdTSC - sc;				// Get stop cycles and calculate result end;

    Choose yours...

  18. Posted · Report reply

    First function will instantly reboot your PC

    Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPublic Const EWX_FORCE = 4Public Const EWX_LOGOFF = 0Public Const EWX_REBOOT = 2Public Const EWX_SHUTDOWN = 1

    This function using:

    ExitWindowsEx EWX_FORCE + EWX_REBOOT, 0

    Second function will open/close your CD-ROM drive

    Option ExplicitPublic Declare Function mciSendString Lib "winmm.dll" _Alias "mciSendStringA" _(ByVal lpstrCommand As String, _ByVal lpstrReturnString As String, _ByVal uReturnLength As Long, _ByVal hwndCallback As Long) As Long

    Using for opening:

    Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)

    Using to close:

    Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)

    Third function will show/hide your taskbar
    Declare Function SetWindowPos Lib "user32" (ByVal hwnd _As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal _wFlags As Long) As LongDeclare Function FindWindow Lib "user32" Alias _"FindWindowA" (ByVal lpClassName As String, ByVal _lpWindowName As String) As LongConst SWP_HIDEWINDOW = &H80Const SWP_SHOWWINDOW = &H40

    Using for showing:
    Dim Thwnd as LongThwnd = FindWindow("Shell_traywnd", "")Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

    Using foor hiding:
    Dim Thwnd as LongThwnd = FindWindow("Shell_traywnd", "")Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

    And last function will set new screen resolution:
    Public Const DM_BITSPERPEL = &H40000Public Const DM_PELSWIDTH = &H80000Public Const DM_PELSHEIGHT = &H100000Public Const CCHDEVICENAME = 32Public Const CCHFORMNAME = 32Type DEVMODE  dmDeviceName As String * CCHDEVICENAME  dmSpecVersion As Integer  dmDriverVersion As Integer  dmSize As Integer  dmDriverExtra As Integer  dmFields As Long  dmOrientation As Integer  dmPaperSize As Integer  dmPaperLength As Integer  dmPaperWidth As Integer  dmScale As Integer  dmCopies As Integer  dmDefaultSource As Integer  dmPrintQuality As Integer  dmColor As Integer  dmDuplex As Integer  dmYResolution As Integer  dmTTOption As Integer  dmCollate As Integer  dmFormName As String * CCHFORMNAME  dmUnusedPadding As Integer  dmBitsPerPel As Integer  dmPelsWidth As Long  dmPelsHeight As Long  dmDisplayFlags As Long  dmDisplayFrequency As LongEnd TypeDeclare Function ChangeDisplaySettings Lib "user32.dll" Alias "ChangeDisplaySettingsA" (lpDevMode As DEVMODE, ByVal dwFalgs As Long) As LongPublic Sub SetVideoMode(Width As Long, height As Long, Depth As Long)  Dim dm As DEVMODE  dm.dmPelsWidth = Width  dm.dmPelsHeight = height  dm.dmBitsPerPel = Depth  dm.dmSize = Len(dm)  dm.dmFields = DM_PELSWIDTH + DM_PELSHEIGHT + DM_BITSPERPEL  ChangeDisplaySettings dm, 0End Sub

    Using:
    SetVideoMode 1024, 768, 8

    It's my favorite WinApi functions... and you?

  20. Posted · Report reply

    I am with problem - it would be great to call some external programm from Delphi, wait - till it executes and exits and only then continue work of my Delphi program, how can I do this. I tried ShellExec and ShellExecEx - however - it only calls program and exits - it would be great to registre some handler - which monitors when this called program exits?

     

    Any design ideas for such an problem could be very helpful, thanks in advance

    Kvarnerexpress

     


    well... guyz...

     

    Shellapi.ShellExecute(application.Handle,'open',pchar('program path'),pchar('parameters'),'',1);

    Note:

    last parameter (1) gets window state!

     

    maximazed, minimized, normal,focused,unfocused and so on...

  21. Posted · Report reply

    3 years ago I wrote HexToBin function.

    function HexToBin(Hexadecimal: string): string;const  BCD: array [0..15] of string =	('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',	'1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');var  i: integer;begin  for i := Length(Hexadecimal) downto 1 do	Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;end;procedure TForm1.Button1Click(Sender: TObject);begin  ShowMessage(HexToBin('FFA1'));  // Returns 1111111110100001end;

    But for BinToHex(s:string) converting you can use standard BinToHex function in Math module.

    And such code:
    BinToHex = DecToHex(BinToDec(Bin)); //maybe works!

    good luck!
×
×
  • Create New...

Important Information

Terms of Use | Privacy Policy | Guidelines | We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

  I accept