Delphi Pages Forums  

Go Back   Delphi Pages Forums > Search Forums

Lost Password?

Showing results 1 to 50 of 55
Search took 0.04 seconds.
Search: Posts Made By: dim47
Forum: General 04-05-2001, 11:40 AM
Replies: 1
Views: 1,518
Posted By dim47
RE: How to connect to an Oracle server?

BDE installation and configuration help

Direct access:
NCOCI8 Library, V 0.9.2 Betta
================================
The Set of Native Delphi Components for Borland Delphi.
100% Source Code....
Forum: General 04-05-2001, 11:37 AM
Replies: 3
Views: 1,197
Posted By dim47
RE: changing dataset property of TDataSource

Use OnStateChange event.
But you should compare new and old DataSource pointers manually.
Forum: General 04-05-2001, 11:21 AM
Replies: 1
Views: 1,054
Posted By dim47
RE: Extracting sections of a stringlist

for i := 0 to 9 do
DestList.Add(SourceList[i]);
for i := 10 to 19 do
DestList.Add(SourceList[i]);
?
Forum: General 04-05-2001, 10:53 AM
Replies: 3
Views: 2,167
Posted By dim47
RE: RE: RE: Append() function.

program Project1;
{$APPTYPE CONSOLE}
Uses SysUtils;
Var i : Byte; F : Text;
begin
Assign(F, 'test.dat');
if FileExists('test.dat') then begin
Append(F);
WriteLn(F);
end else
Forum: General 04-03-2001, 10:12 AM
Replies: 2
Views: 1,431
Posted By dim47
RE: Problems with SQLDialect using Interbase

Database.SQLDialect := 3; ?
Forum: General 04-02-2001, 09:09 AM
Replies: 4
Views: 8,783
Posted By dim47
RE: Is it possible to modify a compiled EXE ?

Make your string as resourcestring and use FindResource, LoadResource and UpdateResource functions. See Win32 Help. (or TResourceStream. See VCL help)

I'm using simple utility strtran for file...
Forum: DB-Aware 04-02-2001, 09:04 AM
Replies: 1
Views: 1,456
Posted By dim47
RE: How to use sql to trasfer sql data to paradox db file.

BDE Help

Local SQL also supports BDE aliases in table references. To do this, enclose the BDE alias in colons, prefix the table name with that colon-enclosed alias name, and then enclose the whole...
Forum: General 04-01-2001, 11:29 AM
Replies: 8
Views: 2,695
Posted By dim47
RE: Just out of interest....

The Bat! http://www.ritlabs.com
Forum: General 03-31-2001, 05:45 AM
Replies: 3
Views: 2,167
Posted By dim47
RE: Append() function.

if FileExists(...) then begin
Append(outfile);
WriteLn(outfile);
end else
ReWrite(outfile);
....
{ code for...
>>somedata:sometitle:somestuff
data1:data2:data3:data4:data5...
Forum: General 03-30-2001, 10:08 PM
Replies: 3
Views: 3,392
Posted By dim47
RE: ODAC5

NCOCI8 Library, V 0.9.2 Betta
================================
The Set of Native Delphi Components for Borland Delphi.
100% Source Code. Last information you can find at
http://www.da-soft.com
...
Forum: General 03-30-2001, 09:10 AM
Replies: 2
Views: 936
Posted By dim47
RE: How can I change the screen resolution?

procedure ChangeDisplayResolution(x, y : word);
var
dm : TDEVMODE;
begin
ZeroMemory(@dm, sizeof(TDEVMODE));
dm.dmSize := sizeof(TDEVMODE);
dm.dmPelsWidth := x;
dm.dmPelsHeight := y;
...
Forum: General 03-30-2001, 08:17 AM
Replies: 3
Views: 1,587
Posted By dim47
RE: Closing another application

Use EnumProcesses function.

= RU.DELPHI (2:5055/24) ======================= RU.DELPHI =
From : Senchenko Vladimir 2:5020/400 20 Mar 29 12:49:36...
Forum: General 03-29-2001, 06:37 PM
Replies: 6
Views: 5,581
Posted By dim47
RE: RE: Determine if a file exists - the right way

I'm using application with FileExists on NT and '95.
All ok. Borland's sources for this function:

function FileExists(const FileName: string): Boolean;
begin
Result := FileAge(FileName) <>...
Forum: General 03-29-2001, 10:31 AM
Replies: 5
Views: 2,655
Posted By dim47
RE: How can I retrieve table fields from a database

Borland Database Engine help:

function DbiOpenFieldList (hDb: hDBIDb; pszTableName: PChar; pszDriverType: PChar; bPhyTypes: Bool; var hCur: hDBICur): DBIResult stdcall;

Description
...
Forum: General 03-29-2001, 10:20 AM
Replies: 1
Views: 1,197
Posted By dim47
RE: Validate a letter in a stringlist

S := 'C:\Windows';

if S[1] = 'C' then...
if S[2] = ':' then...
if S[3] = '\' then...
and so on...
Forum: General 03-27-2001, 10:58 PM
Replies: 3
Views: 4,672
Posted By dim47
RE: Huh?

You can call this function as:
RunProcessAndWait( 'ipconfig', 'ipconfig command line', 'IP Configuration command window' );
Forum: General 03-27-2001, 09:37 PM
Replies: 3
Views: 4,672
Posted By dim47
RE: How Can I run dos Commands without Writing a batch file?

ExeName - name of program or command for execute
CmdLine - optional command line
WinName - window title

procedure TAbcPSForm.RunProcessAndWait(ExeName, CmdLine, WinName : String);
Var P :...
Forum: General 03-27-2001, 05:33 AM
Replies: 9
Views: 2,557
Posted By dim47
RE: RE: RE: TMemoField->TBlobStream

>> I don't want to use BLOB fields (grid problems etc.)
You will show 5000 chars in Grid ???
Forum: General 03-27-2001, 02:53 AM
Replies: 9
Views: 2,557
Posted By dim47
RE: TMemoField->TBlobStream

Try TBlobStream

//------- VCL Help start ---------
The following example copies the data in the
Notes field of Table1 to the Remarks field of Table2.
//--------------------------------...
Forum: General 03-27-2001, 01:38 AM
Replies: 3
Views: 2,072
Posted By dim47
RE: RE: Problem creating Stored Procedures in Interbase

Your problem inside your SetParam procedure.
TIP field too long for string field.
You should use Streams for loading/saving values for this field.

procedure TfrmEdit.SetParam(Query: TIBQuery;...
Forum: General 03-26-2001, 10:02 PM
Replies: 3
Views: 2,072
Posted By dim47
RE: Problem creating Stored Procedures in Interbase

Tested on IB 5.6 and FB 0.9.4

create database "c:\test.gdb"
user "SYSDBA" password "masterkey";

create table customer (
CUST_NO INTEGER,
CUSTOMER VARCHAR(40),
CONTACT_FIRST...
Forum: General 03-26-2001, 07:51 AM
Replies: 1
Views: 937
Posted By dim47
RE: Delphi Forms

Grdid.Visible := True; ?
Forum: General 03-25-2001, 04:17 AM
Replies: 2
Views: 1,449
Posted By dim47
RE: backup of a list box

ListBox.Items.SaveToFile('items.txt');
ListBox.Items.LoadFromFile('items.txt');
Forum: General 03-24-2001, 04:33 AM
Replies: 3
Views: 1,551
Posted By dim47
RE: RE: How can tup a horizontal scroll bar to TListBox

ListBox.Style should be lbOwnerDrawVariable
Forum: General 03-24-2001, 04:25 AM
Replies: 3
Views: 1,551
Posted By dim47
RE: How can tup a horizontal scroll bar to TListBox

I'm not sure about "tup", but, I hope this code can help.

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure...
Forum: General 03-23-2001, 11:36 AM
Replies: 2
Views: 3,767
Posted By dim47
RE: TStringList.CommaText Question

Are you sure ?

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils, Classes;

Const
Src1 : String = '1,2,3,4';
Src2 : String = '"1","2","3","4"';
Forum: General 03-23-2001, 07:12 AM
Replies: 3
Views: 2,956
Posted By dim47
RE: RE: RE: PLEASE HELP ME!

Quick problem solving guilde :-)
1. Comment your try..exception statement - you should
receive real IB error message.

2. You can also use following code (from real project):
try
...
Forum: General 03-22-2001, 08:29 PM
Replies: 3
Views: 2,956
Posted By dim47
RE: PLEASE HELP ME!

Explain your error messages.
Common way:
try
Trn.BeginTransaction;
// Set up your query and params here
Query.ExecSQL;
Trn.Commit;
except
Trn.RollBack;
end;
Forum: General 03-22-2001, 09:46 AM
Replies: 2
Views: 995
Posted By dim47
RE: RE: This one does my nut in! :)

// sorry, right code is:
procedure TButton1.Button1Click(Sender: TObject);
begin
Table1.Filtered := False;
Table1.Filter := 'DATE01 < ''' +
FormatDateTime('DD.MM.YY',...
Forum: General 03-22-2001, 09:35 AM
Replies: 2
Views: 995
Posted By dim47
RE: This one does my nut in! :)

procedure TButton1.FormClick(Sender: TObject);
begin
//You should use TTable.Filter property
//For example, on click:
Table1.Filtered := False;
Table1.Filter := 'DATE01 > ''' +
...
Forum: General 03-22-2001, 07:20 AM
Replies: 8
Views: 4,592
Posted By dim47
RE: Delphi debugger ? Was: How does listview's finddata method work ?

Second example: same form with listview and two buttons:

// Will fail
procedure TForm1.AddString(Var S : String);
begin
with form1.listview1 do begin
if (Finddata(0,@s,true,true)=nil)...
Forum: General 03-22-2001, 06:53 AM
Replies: 8
Views: 4,592
Posted By dim47
Delphi debugger ? Was: How does listview's finddata method work ?

That's your code example:

Form1.dfm
object Form1: TForm1
Left = 192
Top = 107
Width = 414
Height = 194
Caption = 'Form1'
Color = clBtnFace
Forum: General 03-21-2001, 09:11 AM
Replies: 8
Views: 4,592
Posted By dim47
RE: RE: RE: RE: RE: How does listview's finddata method work??

function TCustomListView.FindData(StartIndex: Integer; Value: Pointer;
Inclusive, Wrap: Boolean): TListItem;
var
I: Integer;
Item: TListItem;
begin
Result := nil;
if Inclusive then...
Forum: General 03-21-2001, 07:49 AM
Replies: 2
Views: 1,212
Posted By dim47
RE: GetWorkgroupName...?

See for NetServerEnum, WNetEnumResources and other Net* and WNet* functions in Win32 Help.
Forum: General 03-20-2001, 11:43 PM
Replies: 1
Views: 3,893
Posted By dim47
RE: How to copy RichEdit.Lines into an array

Var
A : array of string; // or array of integer
i : Integer;
begin
SetLength(A, RichEdit1.Lines.Count);
for i := 0 to RichEdit1.Lines.Count - 1 do
A[i] := RichEdit1.Lines[i]; // or...
Forum: General 03-20-2001, 09:06 PM
Replies: 1
Views: 1,179
Posted By dim47
RE: How to create queries using multiple databases.

Local SQL also supports BDE aliases in table references. For example: SELECT * FROM ":pdox:table1"
Forum: DB-Aware 03-20-2001, 09:06 AM
Replies: 2
Views: 2,528
Posted By dim47
RE: Use (ADO) msAccess DB on a computer without Office (access)

Visit http://www.microsoft.com/data/ado/
and download lastest Microsoft Data Access Components (MDAC) package.
Forum: General 03-19-2001, 10:16 PM
Replies: 3
Views: 1,604
Posted By dim47
RE: RE: correct disk in drive

For example you can get volume information, using example below

Var
VolName, SysName : array[0..MAX_PATH] of char;
VolSer, MaxLen, FSFlag : DWORD;
begin
if NOT...
Forum: General 03-19-2001, 10:13 PM
Replies: 3
Views: 10,003
Posted By dim47
RE: RE: RE: I/O Error 32... please help

Var
F : Integer;
buf : array [1..10] of char;
begin
// open
F := FileOpen('myfile.txt', fmOpenReadWrite OR fmShareDenyNone);
// seek to EOF
FileSeek(F, 0, 2);
// write required...
Forum: General 03-19-2001, 09:18 PM
Replies: 1
Views: 1,190
Posted By dim47
RE: I NEED HELP 3 (Record is locked)

You should use low-level BDE functions "Dbi..."

DbiGetErrorContext returns more specific error information about the context of an error...

Error contexts can be one of the following types:
...
Forum: General 03-19-2001, 08:52 PM
Replies: 1
Views: 1,045
Posted By dim47
RE: Creating new database Alias name

1. Check Oracle client installed
2. Check Oracle SQL Link installed and configured
Forum: DB-Aware 03-19-2001, 08:50 PM
Replies: 1
Views: 2,491
Posted By dim47
Forum: General 03-18-2001, 09:38 PM
Replies: 2
Views: 1,881
Posted By dim47
RE: How to make this procedure recursive?

Unfortunately, your algorythm is very ineffective and will be slow, whenever recursive or not. You should change your code or you can use standard quick sort procedure. See example below.

program...
Forum: General 03-18-2001, 05:28 AM
Replies: 2
Views: 1,222
Posted By dim47
RE: RE: hi,how could i store these data?

You should use the power of OOP.

{$APPTYPE CONSOLE}
uses SysUtils, Classes;
{$LONGSTRINGS ON}
type
PDataRecord = ^TDataRecord;
TDataRecord = record
URL : String;
end;
Forum: General 03-18-2001, 12:54 AM
Replies: 1
Views: 7,896
Posted By dim47
RE: Again about changing custom paper size of printer in runtime??

But, I have no printers installed on my home computer. I have only HP LJ 2000 driver instead. When I compile and runs code below, it changes paper size from A4 to Letter.
WinNT4/SP5.

procedure...
Forum: General 03-17-2001, 09:12 AM
Replies: 1
Views: 1,900
Posted By dim47
RE: How to change papersize,width propert. of printer to custom at runtime

From Win32 help:

To modify the current printer settings, an application
should call GetPrinter to retrieve the current settings
into a PRINTER_INFO_2 structure, modify the members of
that...
Forum: General 03-16-2001, 10:24 PM
Replies: 2
Views: 7,850
Posted By dim47
RE: Insert,Update,Delete using SQL?

You can use TQuery for modify your database.
Query.SQL.Clear;
Query.SQL.Add('INSERT INTO TEST(A, B, C)');
Query.SQL.Add(' VALUES(:P1, :P2, :P3)');

Query.Prepare;

Query.Params[0].AsInteger :=...
Forum: General 03-16-2001, 10:17 PM
Replies: 1
Views: 1,371
Posted By dim47
RE: HOW READ BYTES FROM ANY FILE ???

You should use buffered reading.
Var F : Integer;
buf : array [0..100] of Char;
bytesRead : Integer;
S : String;
begin
F := FileOpen('myfile.txt', fmOpenRead OR fmShareDenyNone);
...
Forum: General 03-16-2001, 08:56 AM
Replies: 1
Views: 2,995
Posted By dim47
RE: Multiple forms/database

I think you should use INI files or registry for store required properties. Save properties when Close and Load on Create or Show your form.
Forum: General 03-16-2001, 08:54 AM
Replies: 2
Views: 1,657
Posted By dim47
RE: Deleting objects from a listbox!!!

procedure TForm1.ListBoxDblClick(Sender: TObject);
begin
with ListBox do
// ListBox is not empty AND required Item selected
if (Items.Count > 0) AND (ItemIndex > -1) then
...
Showing results 1 to 50 of 55

 
Forum Jump

All times are GMT. The time now is 10:03 AM.


Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2019, vBulletin Solutions, Inc.