archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • not much X MSMail Priority Normal Newsgroups borland public delphi winapi We experienced this error when a third party component tried to write to a part of NT s registry where the user didn t have permission NirmalKannan wrote in message news 83pkg7 sqn10 forums borland com hi I got a run time error 217 some times once in 100 when i try to start my app The app is

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1222a.txt (2016-02-14)
    Open archived version from archive



  • us ascii Organization AT Mime Version 1 0 Newsgroups borland public delphi winapi Other scenarios I have gotten this error 1 BDE Net Dir mismatch 2 Trying to write to a file disk with no write privileges NirmalKannan wrote hi I got a run time error 217 some times once in 100 when i try to start my app The app is also halted Documentation says thet run time error

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1222d.txt (2016-02-14)
    Open archived version from archive


  • Microsoft MimeOLE V5 00 2014 211 Organization None X MSMail Priority Normal Newsgroups borland public delphi winapi NirmalKannan wrote I got a run time error 217 some times once in 100 when i try to start my app The app is also halted Documentation says thet run time error 217 EControlC caused when user terminates a CONSOLE application by pressing Ctrl C But my app is NOT console One of

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1222e.txt (2016-02-14)
    Open archived version from archive


  • 1 0 Reply To pandeng telepath com Newsgroups borland public delphi winapi On Wed 27 Oct 1999 17 19 10 0700 William Meyer wrote We re occasionally seeing an exception thrown on error 202 After looking up its meaning I can t say I feel enlightened Can anyone here suggest what might provoke this error Error 202 is a stack overflow It s pretty hard to get a genuine stack

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1028b.txt (2016-02-14)
    Open archived version from archive


  • TButton ButtonSplit TButton procedure ButtonCombineClick Sender TObject procedure ButtonSplitClick Sender TObject private Private declarations public Public declarations end var Form1 TForm1 implementation R DFM CONST FileList ARRAY 1 5 OF STRING 1 DAT 2 DAT 3 DAT 4 DAT 5 DAT CombinedFile Combined DAT procedure TForm1 ButtonCombineClick Sender TObject VAR i INTEGER s ARRAY 1 5 OF STRING size INTEGER Stream TMemoryStream begin FOR i Low FileList TO High FileList DO BEGIN Load files into strings IF FileExists FileList i THEN BEGIN Stream TMemoryStream Create TRY Stream LoadFromFile FileList i SetLength s i Stream Size Stream Read s i 1 Stream Size FINALLY Stream Free END END ELSE s i END Could encrypt the strings here if desired Save strings to single binary file DeleteFile CombinedFile Stream TMemoryStream Create TRY FOR i Low s TO High s DO BEGIN size LENGTH s i Stream Write size SizeOf size Stream Write s i 1 size END Stream SaveToFile CombinedFile FINALLY Stream Free END ButtonSplit Enabled TRUE end procedure TForm1 ButtonSplitClick Sender TObject VAR buffer STRING i INTEGER InFileStream TFileStream OutFileStream TFileStream size INTEGER begin InFileStream TFileStream Create CombinedFile fmOpenRead OR fmShareDenyNone TRY split combined file ito separate files with extension BIN

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/IO/CombineSplit.pas.TXT (2016-02-14)
    Open archived version from archive


  • of a file into MemoryStream and later the next 10MB MemoryStream LoadFromFile loads the complete file into memory Thanks in advance Stijn Verrept var FS TFileStream MS TMemoryStream begin FS TFileStream Create AFilename fmOpenRead or fmShareDenyWrite try FS Seek 0

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2003/0608.txt (2016-02-14)
    Open archived version from archive


  • 1999 19 51 12 GMT Newsgroups alt comp borland delphi Here s a procedure that copies every file you want Not that diffucult isn t it procedure CopyFile Source Target string var s1 s2 TFileStream begin s1 TFileStream Create Source fmOpenRead s2 TFileStream Create Target fmOpenWrite or fmCreate s2 CopyFrom s1 s1 Size s2 Free s1 Free end LG wrote in message news 01be81f5 653204a0 03a3143e lars ola Can anybody

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0413.txt (2016-02-14)
    Open archived version from archive


  • But the original dpi is indispensable for determining the original size or the scale of the original scan as is necessary in a program I am working on right now The XPelsPerMeter and YPelsPerMeter are stored in 2 bytes each at an offset of 38 26h and 42 2Ah I don t know or care which one is at which address These 2 values are virtually always the same So in both of my Get functions I just get the one at offset 38 When I set the dpi though I write both You can change this accordingly if you like There are 39 370079 In Meter so dpi 39 370079 dots meter PelsPerMeter unit MyGraphic interface uses SysUtils Classes Graphics Dialogs function GetBMPFileDPI FileName String LongInt procedure SetBMPFileDPI FileName String DPI Integer function GetBmpDPI Bitmap TBitmap LongInt procedure SetBmpDPI Bitmap TBitmap DPI Integer implementation function GetBMPFileDPI FileName String LongInt var Stream TFileStream Data Word A Double begin try Result 0 Stream TFileStream Create FileName fmOpenRead or fmShareDenyWrite Stream Position 38 if Stream Read Data 2 2 then begin A Data Result Round A 39 370079 end finally Stream Free end end procedure SetBMPFileDPI FileName String DPI Integer var Stream TFileStream Data Word begin try Stream TFileStream Create FileName fmOpenWrite or fmShareExclusive Data Round DPI 39 370079 Stream Position 38 if Stream Write Data 2 2 then begin Stream Position 42 if Stream Write Data 2 2 then else Error writing to Stream ShowMessage Error writing to Stream Data not written end else Error writing to Stream ShowMessage Error writing to Stream Data not written finally Stream Free end end function GetBmpDPI Bitmap TBitmap LongInt var Stream TMemoryStream Data Word A Double begin try Result 0 Stream TMemoryStream Create Bitmap SaveToStream Stream Stream Position 38 if Stream Read Data 2

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0120a.txt (2016-02-14)
    Open archived version from archive



  •