Delphi and Kylix Forum RSS Feed

War bonds lighters World war two lighters

Sat, 29 Nov 2008 01:08:22 -0700

Does anyone know if these used to be some kind of war posters or
something? http://www.liangdianup.com/index.htm
Were these sayings on these lighters actually used in war times?

How can i load a file from memory not local !? Newbie

Sat, 22 Nov 2008 06:50:23 -0700

Dear delphi coders
i am a newbie to delphi , i am using an free ocx called devalvr for loading panorama images , thats a great activex with powerfull parameters all free
now i want to create a multimedia cd with delphi and flash and i want to load panorama images into this ocx but this line below is how this ocx will load files

src:="c:\image.jpg"

but i don't want to put files right in cd i mean i don't want to everyone can see my source images and easily copy them , is there any method any way , trick ,
i know how to encrypt or decrypt files but the problem is that this activex load files like coded line !!

Thanks in advance

Duplicate Master/detail report on same page

Thu, 20 Nov 2008 11:06:21 -0700

Hallo all,

I am trying to create a report with QReport v3.0 running in BCB 6.0. I know this not BCB. but any delpi explanation will do.

My target is a master/detail report that appear twice on the same page with dotted line between them.
e.g

A
|_B

cut here...........

A
|_B

I have a dataset for A's parameters a another one for B's parameters. B is linked to a A's DataSource

I am able to display just a master/detail report with QRGroup and i have been able to start a new report on the next page. My question now is how should is structure the bands in such a way that the don't wrap up.

Any help or suggestion is highly welcomed

create virtual printer

Tue, 18 Nov 2008 16:35:11 -0700

Hi.

It's possible to create a virtual printer, wich is an application to control the printing users and to send to remote printers/servers?

Thank's in advance

MB

delphi 7 threads

Mon, 13 Oct 2008 04:17:01 -0700

Can anyone help with the error Canvas does not allow drawing and System error code:1400.I am trying to send data through TCP/IP using Ping.pas.
I am using Threads.If the create threads are omitted the error doesn't appear.

Airport

Mon, 29 Sep 2008 04:50:32 -0700

Hi,
I need to write a airport program but don't know where to start and how to do it. Can anybody help me please?

Report Component

Mon, 01 Sep 2008 23:50:35 -0700

Hi everybody,
I am using Delphi 7 and I have report that want to display them in report component but don't know in which component i can do it.I read about quick report that it reads from database.I have to say that my reports are free it means that it depends on nothing.Please help me,
Thanks in advance

Tutorial for Delphi Network!

Sat, 30 Aug 2008 08:38:44 -0700

Hallo!

I’m a author of the computer game “Poppy and Rose” which I
programmed it in Delphi 6. I think that the game will attract more
attention if it is played in a network between two players.
From this reason I need Tutorial for Delphi Network.
Please send me URL address from any Delphi Tutorial with Network.
Who tutorial is the best for you?

Thank you
Blagoj

items and itemindex selecting the correct item help needed please

Thu, 28 Aug 2008 08:26:37 -0700

hello,

ok what am trying to do is get my selected name from my server and for it to list it correctly in my dropdown list i have a normal of images from 000 to 999 and if i select the image and submit then try to retrive the image name ( dat[3] ) it would then find and show the name in the dropdown menu but am having alot of trouble doing this so can sumone help me out thanks

if i = MainForm.ImageBox.Items.IndexOfName(dat[3]) then
begin
   MainForm.ImageBox.ItemIndex := i;
end;

thanks alot
Slewis

problem with my if then statments!

Mon, 25 Aug 2008 03:42:18 -0700

am doing abit of code for my on join even but my statment seams to be all worng yet i can not find the problem basicly it keeps calling for the password dialog even when rooms do not have password can anyone see the problem ill proble kick myself as it proble be really easy to fix haha

procedure TMainServer.JoinRoom(rSocket: TCustomWinSocket);
var
rbl: integer;
rblist: string;
label
TheSkipper5;
begin
{ showmessage(dat[0]); // your name
showmessage(dat[1]); // lobby
showmessage(dat[2]); // room
showmessage(dat[3]); // connections }

if MakeRoom = True then
begin
goto TheSkipper5;
exit;
end
else
begin

if UsersTable.Locate('name', dat[0], [locaseinsensitive]) = True then
begin
if RoomsTable.Locate('Name', dat[2], [locaseinsensitive]) then
begin
if (dat[3] = RoomsTable.FieldByName('maxcon').AsString) then
begin
if (UsersTable.FieldByName('Level').AsString = '1')
then
begin
goto TheSkipper5;
end
else
if rSocket <> nil then
if rSocket.Connected then
rSocket.SendText(CodeStr('šOnœMAXœThis room has exceeded its maximum allowed user capacity.' + #13 +
'Perhaps you should wait a while longer before trying to re-enter it.'));
end
else // check for password
begin

// this is the part am having trouble with it keeps calling the password dialog even if room dont have password

if UsersTable.Locate('name', dat[0], [locaseinsensitive]) = True then
begin
if RoomsTable.Locate('name', dat[2], [locaseinsensitive]) then
begin
if (RoomsTable.FieldByName('locked').AsString = '0') or
((RoomsTable.FieldByName('locked').AsString = '1') and
(dat[4] <> RoomsTable.FieldByName('password').AsString)) then
begin
if (UsersTable.FieldByName('Level').AsString = '1') then
begin
goto TheSkipper5;
end
else
if rSocket <> nil then
if rSocket.Connected then
rSocket.SendText(CodeStr('šOnœPASSœ'));
exit;
end
else // check to see if user been kicked

rSocket.RB.Text := RoomsTable.FieldByName('list').AsString; // Room List
rblist := lowercase(rSocket.RB.Text);
rbl := AnsiPos(lowercase(dat[0]), rblist);
if rbl > 0 then
begin
if rSocket <> nil then
if rSocket.Connected then
rSocket.SendText(CodeStr('šOnœMSGœSorry! [ ' +
dat[0] + ' ] You were ejected from this room recently.' + #13 +
'Perhaps you should wait a while longer before trying to re-enter it.'));
exit;
end
else
begin // checked for locked room

if UsersTable.Locate('name', dat[0], [locaseinsensitive]) = True then
begin
if RoomsTable.Locate('name', dat[2], [locaseinsensitive]) then
begin
if (RoomsTable.FieldByName('locked').AsString = '1') then
begin
if (UsersTable.FieldByName('Level').AsString = '1') then
begin
goto TheSkipper5;
end
else
if rSocket <> nil then
if rSocket.Connected then
rSocket.SendText(CodeStr('šOnœMSGœThe moderator has locked this room.'));
exit;
end
else
begin // join room if all is good!

TheSkipper5:
if rSocket <> nil then
if rSocket.Connected then
rSocket.SendText(CodeStr('šOKœ' + dat[0] + 'œ' + dat[2] + 'œ' + dat[1] + 'œ'));
MainForm.LogMemo.Lines.Add(dat[0]+' User has joined room.'+ dat[2]);
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;

hope sumone can help thanks alot
Slewis

Show image (stored in web server) in a form

Sun, 24 Aug 2008 10:33:06 -0700

How could i show an image (i.e. http://www.google.com/logos/olympics08_closing_res.gif) in a delphi form????

It's possible?

How?

Thank's in advance

Marco

Network components for my game!

Sat, 16 Aug 2008 03:09:09 -0700

Hallo!
I’m a author of the computer game “Poppy and Rose” which I programmed it in Delphi 6. I think that the game will attract more attention if it is played in a network between two players. But because I’m not professional programmer, and because of my age (I’m 51 year old) I just cannot make that. This is why I need help, and when I mean help I mean a source code of some kind (in Delphi 6) with these segments:
- A segment in which a connection is made between two players that should be in a peer to peer base, but one of them would act like a server and the other will be a client that will connect to the server;
- A segment that will initiate that the two players have the same time;
- A segment in which the two players transfer data between them;
- A segment where is formed a joined table of results.
Can I find a source code with this attributes, maybe from some other simple video game?
Thank you
Blagoj
My e-mail: jblagoj@yahoo.com

Thread using a TTimer

Mon, 04 Aug 2008 23:18:21 -0700

I'm trying to write a thread that uses a timer. This is what I've got so far:

interface

uses Classes, ExtCtrls;

type
TTimerThread = class(TThread)
private
timer : TTimer;
timesincestart : Longint;
procedure onTimerHandler;
protected
procedure Execute; override;
public
constructor create; overload;
end;

implementation

uses Unit1, Dialogs, SysUtils;

{ TTimerThread }

constructor TTimerThread.create;
begin
inherited create(false);
timer := TTimer.Create(form1);
timer.Interval:=100;
// timer.OnTimer:=onTimerHandler;
timesincestart:=0;
end;

procedure TTimerThread.onTimerHandler;
begin
inc(timesincestart);
Execute;
end;

procedure TTimerThread.Execute;
begin
with Unit1 do
begin
edit1.Text:=inttostr(timesincestart);
end; // with
end;

The idea is for the timer to execute as a thread. I'm not experienced in using threads at all, plz could someone point out my obvious mistake.

kernel error

Tue, 29 Jul 2008 09:54:07 -0700

I am using Delphi 7.0 Enterprise Build 4.453

I supose that this was the original release of the Delphi 7.

Until now all was ok since I never used it verry extensively, now I'm building a medium app and when it is compiled on my PC all works fine (using XP SP3 Portugal)

Now when another Pc tries to open the exe file it craches refering to the kernel32.dll

Can anyone help me?

Delphi 7 Programmer wanted w/sql knowledge

Sun, 27 Jul 2008 06:04:45 -0700

I have a Client/Server Application for a Online Chat and Game site that i offer FREE for everyone its located at (URL address blocked: See forum rules) d/l client there and take a look at it, need a delphi 7 programmer to make some changed to the software, i do have the code, would like to talk to someone about what it would cost to make some needed changes in the software, ie: it has streaming audio/video uses a talk button, would like to make it so people can PICK a key to use to chat with, would like to fix a problem that it has with key used now (Scroll Lock) locks up or sticks when you use it at times and have to leave the room to clear it, would like to find out what it would cost to make the program capable of putting java/flash games in. Would also like to expand the admin tools and be able to select toold to give moderators on an individual basis. then look into converting database to sql, this is a FREE site for everyone so it runs on donations, so must be VERY Reasonable priceing on programmer, if interested contact me at(E-Mail address blocked: See forum rules) thanks

Form Border

Sun, 27 Jul 2008 03:53:51 -0700

Hi i have this:

borderstyle = bsNone

but when i execute the appliction, the form fmUserLogin is displaying the border.

How could i hide the border?

Thank's in advance

MB

Delphi Error

Sun, 13 Jul 2008 10:06:08 -0700

here is the code from the button click which is causing problems, if anyone wants full code just shout :) im getting an index 0 error if anyone can help that would be great

procedure TMain.Button_LvlUpClick(Sender: TObject);
var

 Calc1 :Integer;
 Calc2 :Integer;

begin
FirstRun := False;
Calc1 := 0;
Calc2 := 0;
OrderID:= SelectedID;
EUorUS:= Grid.Fields[1].AsString;
ServerName := Grid.Fields[2].AsString;
CharName:= Grid.Fields[3].AsString;
CharClass:= Grid.Fields[4].AsString;
StartLevel:= IntToStr(Grid.Fields[5].AsInteger);
EndLevel :=  IntToStr(Grid.Fields[6].AsInteger);
CurrentLevel := (Grid.Fields[7].AsInteger);
Progress:= IntToStr(Grid.Fields[8].AsInteger);
Handler:= Grid.Fields[9].AsString;


CurrentLevel:= CurrentLevel + 1;

Calc1:= StrToInt(EndLevel) - StrToInt(StartLevel);
Calc2:= (StrToInt(Progress) - (Calc1) - 1)*-1;
Progress:= IntToStr(Calc2);


ADOQuery1.Close;

ADOQuery1.Parameters.Clear;
ADOQuery1.Parameters[0].Value := Progress;
ADOQuery1.Parameters[1].Value := CurrentLevel;
ADOQuery1.Parameters[2].Value := OrderID;
ADOQuery1.SQL[0] := 'INSERT INTO Orders (Progress, CurrentLevel) VALUES(:Progress, :CurrentLevel)  WHERE OrderID = :OrderID';
ADOQuery1.ExecSQL;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT Orders.OrderID, Orders.[EU/US], Orders.ServerName, Orders.CharName, Orders.CharClass, Orders.StartLevel, Orders.EndLevel, Orders.CurrentLevel, Orders.Progress, Orders.Handler FROM Orders WHERE Orders.OrderID = :OrderID');
ADOQuery1.Open;

end;

libmysql.dll

Wed, 09 Jul 2008 23:20:43 -0700

Hi all,

I just need some help , i have recently installed the latest version of mysql server and i am using delphi 7. the problem is that when i use tje dbexpress tsql component and set the connected property to true delphi complains that it cant load the libmysql.dll. i have looked everywhere on the net but cant seem to get a clear indication as to what the problem really is. please can someone advise me on how to fix this very annoying problem. many thanks and kind regards.

TraceRT Component

Sun, 29 Jun 2008 13:46:41 -0700

I'm looking for some sort of working TraceRT component or code for Delphi 6. I found one called ICMP something by this lady, andrea something, as you can tell I already deleted it. Wasn't working correctly and giving a lot of errors. I would like to find a component for this, I have searched the web through and through and cannot find anything. If all else fails I will settle for some good code if anyone has code for this.

This is what I'm currently using, I found on internet:

unit TraceRt;
interface

// ==================================================
=========================
// TRACEROUTE Class
// Mike Heydon Dec 2003
//
// Method
// Trace(IpAddress : string; ResultList : TStrings)
//             Returns semi-colon delimited list of ip routes to target
//             format .. IP ADDRESS; PING TIME MS; TIME TO LIVE; STATUS
//
// Properties
//             IcmpTimeOut : integer (Default = 5000ms)
//             IcmpMaxHops : integer (Default = 40)
// ==================================================
=========================

uses Forms, Windows, Classes, SysUtils, IdIcmpClient;

type
     TTraceRoute = class(TObject)
     protected
       procedure ProcessResponse(Status : TReplyStatus);
       procedure AddRoute(AResponseTime : DWORD;
                          AStatus: TReplyStatus; const AInfo: string );
     private
       FIcmpTimeOut,
       FIcmpMaxHops : integer;
       FResults : TStringList;
       FICMP : TIdIcmpClient;
       FPingStart : cardinal;
       FCurrentTTL : integer;
       procedure PingTarget;
     public
       constructor Create;
       procedure Trace(const AIpAddress : string; AResultList : TStrings);
       property IcmpTimeOut : integer read FIcmpTimeOut write FIcmpTimeOut;
       property IcmpMaxHops : integer read FIcmpMaxHops write FIcmpMaxHops;
     end;

// ---------------------------------------------------------------------------
implementation

// ========================================
// Create the class and set defaults
// ========================================

constructor TTraceRoute.Create;
begin
  IcmpTimeOut := 5000;
  IcmpMaxHops := 40;
end;


// =============================================
// Use Indy component to ping hops to target
// =============================================

procedure TTraceRoute.PingTarget;
var wOldMode : DWORD;
begin
  Application.ProcessMessages;
  inc(FCurrentTTL);

  if FCurrentTTL < FIcmpMaxHops then begin
    FICMP.TTL  := FCurrentTTL;
    FICMP.ReceiveTimeout := FIcmpTimeOut;
    FPingStart := GetTickCount;
    wOldMode := SetErrorMode(SEM_FAILCRITICALERRORS);

    try
      FICMP.Ping;
      ProcessResponse(FICMP.ReplyStatus);
    except
      FResults.Add('0.0.0.0;0;0;ERROR');
    end;

    SetErrorMode(wOldMode);
  end
  else
    FResults.Add('0.0.0.0;0;0;MAX HOPS EXCEEDED');
end;


// ==================================================
==========
// Add the ping reply status data to the returned stringlist
// ==================================================
==========

procedure TTraceRoute.AddRoute(AResponseTime : DWORD;
                               AStatus: TReplyStatus;
                               const AInfo: string );
begin
  FResults.Add(AStatus.FromIPAddress + ';' +
               IntToStr(GetTickCount - AResponseTime) + ';' +
               IntToStr(AStatus.TimeToLive) + ';' + AInfo);
end;


// ==================================================
==========
// Process the ping reply status record and add to stringlist
// ==================================================
==========

procedure TTraceRoute.ProcessResponse(Status : TReplyStatus);
begin
  case Status.ReplyStatusType of
    // Last Leg - Terminate Trace
    rsECHO : AddRoute(FPingStart,Status,'OK');

    // More Hops to go - Continue Pinging
    rsErrorTTLExceeded :  begin
                            AddRoute(FPingStart,Status,'OK');
                            PingTarget;
                          end;

    // Error conditions - Terminate Trace
    rsTimeOut : AddRoute(FPingStart,Status,'TIMEOUT');
    rsErrorUnreachable : AddRoute(FPingStart,Status,'UNREACHABLE');
    rsError : AddRoute(FPingStart,Status,'ERROR');
  end;
end;

// ==================================================
====
// Trace route to target IP address
// Results returned in semi-colon delimited stringlist
// IP; TIME MS; TIME TO LIVE; STATUS
// ==================================================
====

procedure TTraceRoute.Trace(const AIpAddress : string;
                            AResultList : TStrings);
begin
  FICMP := TIdIcmpClient.Create(nil);
  FICMP.Host := AIpAddress;
  FResults := TStringList(AResultList);
  FResults.Clear;
  FCurrentTTL := 0;
  PingTarget;
  FICMP.Free;
end;

{eof}
end.

This work fine, no problem. The only thing is that when I run it with a web address or even a web IP that is not local it will not resolve or go past my local router, it times out and stops. Any ideas?

I will settle for this script if I can get it working for sites as well as local.

connet to another computer through sending a command in delphi

Fri, 27 Jun 2008 13:29:38 -0700

Dear friends,
I have a problem in delphi to read a file in network folder.
There is a computer( called PC2 ) that SQL SERVER 2000 has been installed on it and a folder ( called SHAREFILES ) has been shared in it .
I want to read a file that is in SHAREFILES throuth my program but it dos not permit to access it( Users do not know what the username and password are but I know).
when I manually login to PC2 it works well .
How can I connect to PC2 through programming without logging manually ( for example Sending a command for logging automatically to pc2) .
moreover, SQL server has been installed in Mixed mode and all the pc's OS are WINXP and I do not want the users to loggin manually.
Best regards

Delphi network game problem

Wed, 11 Jun 2008 03:32:18 -0700

Good day i;n currently trying to create a texas holdem type poker game that can be played over a lan. My problem is i;m not sure whether to use UDP or TCP/IP for the communication?

Secondly what do I need to do when i what to join a game that is busy being created, I don't want to use the same server everytime and I don't want to type in the IP address of the "server" everytime, I want the computers that join to automatically find the address of the game that has been started how do I do that, like most games using the feature that I'm trying to explain they describe it as a lobby, and a list of the servers on that network of that game will appear in this lobby list, games i'm refering to are Halflife 1 and command and conquerer 2?

The commands for the game has already been done and test on a standalone system and over a UDP and TCP/IP system, so i've got that down on both but I still have to type in the IP address of the serving computer, I don't want that, please if you can help I'd forward you the program / game when I'm finished.

Thanks

Action shortcut not triggered.

Thu, 05 Jun 2008 00:43:42 -0700

I have a action on a form with a key shortcut. The action will not get triggered. It seems as if my 'parent-form' (mainform) gets the keys instead.

The form with the action have focus, but is displayed on a panel located on my MainForm.

Is there any properties I need to check to make sure the right form gets the right key presses?

Thank you.

Delphi 7

Passing Variable Array in Non-Var parameters?

Thu, 29 May 2008 14:08:37 -0700

Hello, I want to pass an Array in EnumWindows function. When I make change to the array in EnumFunc it is not updated to the original array because I cannot make it pass as a VAR parameters. Do you have any idea how can I change the original array directly?

Function EnumFunc (ParentHwnd: hwnd; ThreadListR:lparam):Bool;stdcall;
Var
ThreadList:Array of Cardinal;
i:integer;
AThreadID:Cardinal;
Begin
Result:=True;
ThreadList:=Pointer(ThreadListR);
AThreadID:=GetWindowThreadProcessID(ParentHwnd,nil
);
If AThreadID=0 then Exit;
If High(ThreadList)<>-1 then
For i:=Low(ThreadList) to High(ThreadList) do If ThreadList[i]=AThreadID then Exit;
SetLength(ThreadList,High(ThreadList)+2);
ThreadList[High(ThreadList)]:=AThreadID;
end;

Var
ThreadList:Array of Cardinal;
Begin
EnumWindows(@EnumFunc,Longint(ThreadList));
Showmessage( inttostr( High(ThreadList) ) );
end;

Service start problem with Delphi 7 compile

Wed, 14 May 2008 02:58:38 -0700

Hi

I am facing a strange problem with a Delphi based windows service. The service was originally written and compiled in Delphi 5 and used to work properly. Recently I wanted to compile the service code in Delphi 7. For that purpose I had to make some minor changes to the service code. In particular I had to include the Variants unit in the uses clause of every unit where the VarToStr function was used.

The service compiles properly after the above mentioned changes. However, when I install the service and try to start it, the service hangs indefinitely in the Starting state. As the code changes mentioned above appear insignificant and unrelated to service start code (the VarToStr function is used in some logging lines only), this behavior is very strange.

After some investigation I have found a solution which is equally strange. The solution to fix this problem is to perform an incremental compile (Project/Compile ACS - Ctrl+F9)after the initial full compile (Project/Build ACS). ACS is the name of the service. To my understanding, the problem occurs on a full compile, i.e. when there are no .dcu files present. When I run the service file compile using the full compile, it does not start. But when I perform a second compile (which should essentially be a re-linking because I do not change any code), the service starts to work.

Would appreciate if someone can point me towards the actual cause of the problem. The solution mentioned above does not seem a proper one because at some future time, someone may fail to perform a second compile and the problem will be back.

Regards
Nauman

Select text and automatically copy it to clipboard (help)

Tue, 13 May 2008 12:20:16 -0700

I'm not a programmer but some guy is helping to make a program with Delphi which uses clipboard. So before i use my program i need to select and actually copy ( right click or ctrl+c) text to clipboard first.

Is it possible to make that my program copies selected text to clipboard automatically? I need to be able to copy hte text from any document where text can be highlighted and copied ( .txt, .doc, .pdf, html, etc.) I would appreciate it if anybody could explain to me if it's possible and how hard it si to implement and possibly to expalin to my guy how to do that.

Appreciate any help.

Thanks