I.T. Discussion Community!
-Collapse +Expand
Delphi
Search Delphi Group:

Advanced
-Collapse +Expand Delphi To/From
To/FromCODEGuides
-Collapse +Expand Delphi Store
PRESTWOODSTORE

Prestwood eMagazine

June Edition
Subscribe now! It's Free!
Enter your email:

   ► MB LobbyPascal and Delphi Coding Board   Print This     

Delphi Object PASCAL Topic Oldest Threads

Object PASCAL language including OOP, classes, interfaces, types, methods, functions, procedures, etc.
 Show:
New Activity New Threads Oldest Unanswered Most Active Most Read
  


25 Threads:

Add New ThreadRandom Thread

Thread 25 of 25
Thread Starter  

m_ceniza
Passing a CWnd parameter to a C++ DLL from Delphi
I have a Delphi program that accesses a DLL (written in C++), which requires a CWnd Handle as a parameter. I tried passing the HWnd handle of a panel but it doesn't work. Has someone tried doing this before? It would greatly help. Thanks.
19 years ago
3 replies. Last post:

lrutledge
{Too Long!}
19 years ago
Nothing New Since Your Last Visit
2895
Hits

Thread 24 of 25
Thread Starter  

AnnA.C
Importing Interface [Info for Larry]
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
1095
Hits

Thread 23 of 25
Thread Starter  

AnnA.C
Importing interface
Dear All,, , I am experiencing the following problem with Delphi. I want to develop a COM server application that would implement an Interface contained into a DLL downloaded from the web., The interface describes a set of procedures. Among these procedures, there is one (named Execute) which I must cusotmize., , Since I am quite new to Delphi, I don't know how to do that. Can anyone please help me ?, , Thank you in advance,, Seb
18 years ago
4 replies. Last post:

AnnA.C
Dear Larry,, , I have also found out that you will need to have the following dll registered : MSVBVM60.dll in order to be able to register Base64.dll and all the other XMLRPC*.dll that come with the XML-RPC for COM library., , Regards,, Sebastien
18 years ago
Nothing New Since Your Last Visit
1905
Hits

Thread 22 of 25
Thread Starter  

Hannah
Random Numbers in Delphi
Hiya, , , Not sure if this is the place to be asking but can anyone help me with a problem i need to solve in Delphi!!, , I need to be able to do a simple addition between random numbers that are picked., , For example. you press a button and the 2 numbers appear, giving the user a chance to give an answer to the question and then the program telling you wether the answer is correct or incorrect!!, , Any help would be most appreciated,, Thanks, Hannah
18 years ago
2 replies. Last post:

Hannah
Apologies for not replying sooner, , It was for a psychology problem, which is why i needed help with the programming side of it!! Not my subject!!, , Thanks very much!
18 years ago
Nothing New Since Your Last Visit
1479
Hits

Thread 21 of 25
Thread Starter  

Hannah
Functions
If i have an array with a selection of peoples ages in it and wish to call the lowest age, how do i do it?, , I have to write my own function for this tho, ie. Function Youngest, , Do i use Function Low, if so how do i use it? I am quite confused!! :\, , Thanks, Hannah, , , [This message has been edited by Hannah (edited February 11, 2001).], , [This message has been edited by Hannah (edited February 11, 2001).], , [This message has been edited by Hannah (edited February 11, 2001).]
18 years ago
1 Reply:

mprestwood
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
1175
Hits

Thread 20 of 25
Thread Starter  

ccupo
tfield property
Hi:, I wont to add some user properties to class Tfield. I changed \source\vcl\db.pas:, , TField = class(TComponent), private, FOsobina1: Longint;, FOsobina2: Longint;, à, published, property osobina1: Longint read FOsobina1 write FOsobina1 default 0; , property osobina2: Longint read FOsobina2 write FOsobina2 default 0; , à, , but I see nothing in object inspector. if I try to recompile vcldb50 I have errors. please help. Below is a little example.
18 years ago
1 Reply:

Scott
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
1057
Hits

Thread 19 of 25
Thread Starter  

mieren_zijn_de_baas
simple string question.
Hi, can anyone give me an example of getting the last 4 characters of a string?, , Thank you, , mieren_zijn_de_baas
18 years ago
1 Reply:

KBerry
Here is one way:, , , function Last4Chars(s : string) : string;, var, start : integer;, begin, start := Length(s)-3;, if start < 0 then start := 0;, Last4Chars := Copy(s, start, Length(s));, end;, , , Regards,, Kim
18 years ago
Nothing New Since Your Last Visit
1330
Hits

Thread 18 of 25
Thread Starter  

C.Oberhaus
get size of multi-dimensional array
Hi all,, , soz if this is a bit lame. Just converting from c++ to delphi. Can't seem to find a method of returning size of multidimensional array:, , (1D) size := High(arr)-Low(arr);, (2D) size := ????, , Thanks in advance!, , pea
18 years ago
1 Reply:

Scott
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
5458
Hits

Thread 17 of 25
Thread Starter  

gordon
StrToInt and Negative Numbers
Hi,, , I am trying to use :, , ThisString:= -78865766548;, StrToInt(ThisString);, , but I get an EConvertError '-78865766548 this is not a valid integer', , How can I convert this negative number to an integer?, , Thanks, , Gordon ALLAN Eek!
18 years ago
2 replies. Last post:

gordon
Thanks Kim, That worked a treat. I suppose I should have thought of that... It turns out that the string was not being cleared before I put some more numbers in it., , It turns out I diudn't need the Int64, however it should be useful in the future., , Thanks, , Gordon Big Grin!
18 years ago
Nothing New Since Your Last Visit
2088
Hits

Thread 16 of 25
Thread Starter  

Zoilus
Threads + sleep method
Hi,, , I have a thread that needs some components from the Form it was called by. I thought of creating a new method Create that would require in his parameters these components, and then set them so I can use them in my thread (I suspect there is a better way to do it). But, when I change the Create method, the Execute method is never called... any idea why?, , Also, I did some testing, and when I start a thread with a call to the Sleep method, even my main program sleeps... any idea how to fix this?
18 years ago
1 Reply:

Scott
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
3018
Hits

Thread 15 of 25
Thread Starter  

C.Oberhaus
Streaming compression
Hi all (again), , I've been needing to compress large chunks of data (currently stored as a 3D array of mostly integers) before saving them out to disk., , I've experimented with Streams and a neat function(s) I found on the net using the zlib compression tool to (de)compress the stream., , This all works fine - but only on small streams!! Once the stream gets bigger than about 5MB I get errors (out of memory?) even though my mem manager says plenty of mem left! , , Therefore - anybody know how to compress large amounts of data on the fly (streaming) or know anything about memory limits on streams? I've heard of 10MB+ strings...could that be an option (instead of streams?)., , ANy help greatly appreciated
18 years ago
6 replies. Last post:

C.Oberhaus
Thanks heaps for your help!, , I'll try it as soon as I can and get back to you!, , Pea
18 years ago
Nothing New Since Your Last Visit
1639
Hits

Thread 14 of 25
Thread Starter  

WAPMAN
Richedit, Please help
k, I will try to explain this, hmmm... k., If a specific word ( ex. HTML) is written in the richedit text box, I want , JUST that part to be bold, like in Delphi when writing( ex end.) , It would show wich words are like prereserved, and that u have spelled it correctly, I use Delphi 6.0 ( if it helps)., Thx !, , ICQ: 121680005
18 years ago
2 replies. Last post:

WAPMAN
Thx man, I will try this one!
18 years ago
Nothing New Since Your Last Visit
1553
Hits

Thread 13 of 25
Thread Starter  

mdelattr
TTabSheet
I have a form containing a TPAgeControl. Dynamεcally, I am creating TTabsheet containig a Memo., , nFort := TTabSheet.Create(self);, with MnFort do begin, Caption := 'montfort petit pd';, Name := 'tab1';, PageControl := PageControl1;, Visible := true;, end;, , with TDCMemo.Create(self) do begin, Parent := MnFort;, Align := alClient;, Show();, end;, , I would like to access to the property and function of the memo using, PageControl1.ActivePage which is giving me the TTabSheet in answer but i don't know how to access the child of the TTabSheet (the memo)., any help will be cool !!!!!!!!!!!!!!!!!!!!
18 years ago
1 Reply:

wpantoja
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
1031
Hits

Thread 12 of 25
Thread Starter  

mdelattr
How to pass a buffer parameter in a procedure and
I am trying to pass a buffer as parameters in a call to a procedure but the recievd value in the parameter is empty, i have tried to pass it as a pointer but nothing is working if someone got an idea it will be nice:, , PBuffer := @buffer;, /..../ , MessageDispatcher.writeBuffer(PBuffer,1024);, , procedure TMessageDispatcher.WriteStr(ch:String);, var chaine : PChar;, begin, ch:=lowercase(ch);, ch:=ch+#13;, chaine := PChar(ch);, if DM.Comm32.Write(chaine^,length(ch))=-1 then, DefaultReceiver.StdOutput.WriteStr('*** COM TIMEOUT ***');, end;
18 years ago
1 Reply:

wpantoja
See conversation in Delphi Single User Apps.
18 years ago
Nothing New Since Your Last Visit
1187
Hits

Thread 11 of 25
Thread Starter  

Sul
Store a numerical value in an edit box
How do you store a numerical value in an edit box?
18 years ago
1 Reply:

mprestwood
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
1112
Hits

Thread 10 of 25
Thread Starter  

Turbo Pascal
15 bits bitmaps and windows 2000/xp
hi,, i have a problem!!!!,, , look this source:, , ***************************************, a:=tbitmap.create;, getmem(p,64*64*4);, memo1.Lines.add('Building 15 bits bitmap...');, a.PixelFormat:=pf15bit;, a.Width:=64;, a.Height:=64;, , if a.pixelformat<>pf15bit then begin showmessage('error...unable to create 15 bits bitmap');exit;end;, , memo1.Lines.add('15 bits bitmap Ok...');, , *********************************, , as you can see i am just seting my bitmap to 15 bits pixel format (pf15bits) then i ask if the bitmap realy hold this seting, , , In win95 & win98 this 15 bits bitmap is created ok, but in windows 2000 and windows Xp i get the error "unable to create 15 bits bitmap" just because for some reason i can set pixelformat:=pf15bit !!!, , what happend?, did somebody is awere about this problem in win2k and xp?, , what i can do?, , , tp.
18 years ago
Nothing New Since Your Last Visit
1117
Hits

Thread 9 of 25
Thread Starter  

Mangetout
Create a blank table structure.
I'm developing an application which (for various reasons) will append a small set of records from a server table to a temporary local table, since the server table is subject to occasional changes in the field definitions etc, I'd like to create the blank local table based on the structure of the server table., , I've managed to do this with the CreateTable method, after iterating through the field and index defs and adding them to the new structure, a neat and fast little procedure of a dozen lines or so, but my boss is convinced that somewhere in the language there must be lurking a single command like 'CopyStructure' or something., , I know it can be done with batch operations, but the server table is going to be big and copying it, then clearing out the copy just isn't going to be practical., , Any suggestions?
18 years ago
1 Reply:

Angel
Instead of creating new field definitions in your new table, you can just assign the existing ones., , Table1.FieldDefs.Assign(Table2.FieldDefs); , , The same can be done with indexes. I dont know if this is how your doing it now, but it seems the quickest way to me if your tables are going to be that large.
18 years ago
Nothing New Since Your Last Visit
1105
Hits

Thread 8 of 25
Thread Starter  

Mangetout
Referencing a control by name.
I'm a bit of a newbie to Delphi, sorry if this is a dumb question., , I have a string variable that will contain the name of a table object and another that will contain the name of a field within that table., , I'd like to know how to reference the table by name (like it is possible to do with FieldByName) - is that possible?
18 years ago
2 replies. Last post:

lrutledge
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
1836
Hits

Thread 7 of 25
Thread Starter  

mrburns
procedures
{Too Long!}
18 years ago
3 replies. Last post:

lrutledge
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
2454
Hits

Thread 6 of 25
Thread Starter  

Helix
CreateProcess and StartupInfo
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
1681
Hits

Thread 5 of 25
Thread Starter  

Riste Pejov
ExitProc Overriding
Well .. im trying to install a new handler for the exitProc in a library but it simply won't work, code:, , library test;, uses, SysUtils,, Classes,, dialogs;, , var, SaveExit: Pointer;, procedure LibExit;, begin, MessageDlg('Unloading dll',mterror,[mbok],0);, ExitProc := SaveExit; // restore exit procedure chain, end;, begin, SaveExit := ExitProc; // save exit procedure chain, ExitProc := @LibExit; // install LibExit exit procedure, MessageDlg('Loading dll',mterror,[mbok],0);, end., , with two consecutive calls from within an app like this:, LoadLibrary(MyHandle,'test.dll');, FreeLibrary(MyHandle);, , it only shows the 'Loading dll' dialog .. it isn't executing the installed proc at all., , what's the catch ?
18 years ago
Nothing New Since Your Last Visit
1414
Hits

Thread 4 of 25
Thread Starter  

nass
Hepl!!! I/O Error 32 is chasing me!!
i try to save a file on the disk using the following code, please:, , procedure SaveFile;, , begin, AssignFile(PathFilerout, temp '\Path.Ini');, Rewrite(PathFilerout);, Writeln(PathFilerout, TimeForm.OpenDialog1.Filename);, Writeln(PathFilerout,TimeForm.Edit1.Text);, Writeln(PathFilerout,TimeForm.Edit2.Text);, CloseFile(PathFilerout);, end;, , now when the program reaches: , Rewrite(PathFilerout);, , an exception occurs and the 'I/O Error 32', occur., , I have searched ALL help menu and havent found any error w/ a number 32.., , does anyone know whats wrong and how can i gget rid of this problem??
18 years ago
2 replies. Last post:

AliNaqvi
{Too Long!}
18 years ago
Nothing New Since Your Last Visit
9603
Hits

Thread 3 of 25
Thread Starter  

snow_boy
Delphi 6 and Import procedure
Hi I am just wonder if anyon can help me with callprocedure. This is in the DOA(direct Oracle Access) TOraclePackage. well they explain when declare do this:, , Declaration, , procedure CallProcedure(const ProcedureName: string; const Parameters: array of Variant);, , and I don't understand the Parameters, I mean it is the parameter in the procedure or the one on my form?? and I have input this Declaration, it returns a message saying "unsatisfied forward or external declaration". so can anyone help??? , , Also do any one know anything about how to use the TOracleQuery. coz it won't accept my SQL call:, , begin, Search(:id1,:current);, end;, , , Thx in advance., Billy
17 years ago
Nothing New Since Your Last Visit
1529
Hits

Thread 2 of 25
Thread Starter  

Maurice Toon
Delphi 5 and Sapi4
I am trying to write a program is delphi 4/5 that access SAPI4 libraries. , Microsoft Text-to-Speech Engine (Version 4.0), How do I:-, Get a list of voices?, changes the voices?, changes the volume? etc, and any other useful options , , Any help would be grate. Mauricetoon@yahoo.co.nz , , Maurice Toon [QUOTE] [/QUOTE] Confused [b]YOU ARE MY ONLY HOPE[/b][i]null[/i]
17 years ago
Nothing New Since Your Last Visit
1095
Hits

Thread 1 of 25
Thread Starter  

horse
a bit of 3D graphics
can anyone help - im trying to find out what is the best way to do 3D graphics in delphi, , im building an app which takes a set of 3d data and then does loads of wonderful stuff to it, blah, etc, , but the thing is i havent a clue where to start in showing what this data looks like, ok i could use the line functions which are avaliable, but this would be very slow in drawing it would it not? so i dont want to do that... any suggestion ? are there any plugins which will do a lot of the 3d view coding for me? esp. if i code inspect the 3d object created with say the mouse in a single window..., , cheers for any help, [EMAIL]chris@moutray.com[/EMAIL]
17 years ago
Nothing New Since Your Last Visit
946
Hits

New Thread
Follow PrestwoodBoards on: 


©1995-2019 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech