Hello,
i'have question about reporting service reportservices,I'm trying to connect to the reporting  web service sql server but an exception is raised, password or user are wrong error 401 unauthorized .
But i'm sure that they are correct this is how i use it :
I have imported a wsdl and i have got reportservice2005.pas.
Why i can't Authentify knowing that i can with browser how to use the methode LogOnUser() ? or THttpRio? to authtify.
this is the procedure i'm using :
procedure TfMenu.Button1Click(Sender: TObject);
 const
   defURL  = 'http://khali-pc:80/ReportServerSQL2016/ReportService2005.asmx';
var
   Report : CreateReport;
   ReportingService :  ReportingService2005Soap;
   stream           :   TFileStream;
   tailleBuffer,I     : Integer;
   UserLog          : logonUser;
   Rio1              : THttpRio;

begin
 
 Rio1 := THttpRIo.Create(self);
   Rio1.HTTPWebNode.UserName      := 'SomeDomain\SomeUser';
   Rio1.HTTPWebNode.Password      := 'xxxxxxx';

ReportingService := GetReportingService2005Soap(false, defURL, nil) ;

/////********** Second way to authenificate*********************// PS: and the first way to athentificate is to include password and user in RIO (THttpRio) above

/// second method to authetify to SSRS
//   UserLog                  :=       LogonUser.Create;
//   UserLog.userName  := 'SomeDomain\SomeUser';  
//   UserLog.password   := 'xxxxxx';
//   UserLog.authority     :='' ;
//   …

hi everyone,

  here we have an  Delphi application, it's functionality is to receive data from Ethernet and  to store received data in database(Interbase DB) . to store or retrieve data in Interbase DB(Local DB) we are using BDE components. and here we are posting that data to Azure cloud using ADO components. when ever we deployed our application into client system it is working well for sometimes 3hr and sometimes 4hr and sometimes even 24 hr also it is working well but after that we are getting the above exception and exe getting hanged and forcibly stopped. I have searched about above exception all over the internet but didn't get an idea what to do. but crazy thing is this application has ran continuously for 4 days continuously whenever we tested it in my system.  I think it is something to do with BDE Components.
   
 forgive me if you are not able to understand my English.
Any suggestions or solutions are helpful.

I have a menu item with a ShortCut inside a popup menu. I need to detect whether this menu item has been either manually clicked (e.g. with the mouse) or with the shortcut. Is this possible?

I'm binding a grid to a clientdataset, but once I do, everytime I try to run the application I get "Cannot change this property when using LiveBindings".

Hi,

Some of my customers want to be able to mark the position on the human body where a person has pain and such.
Therefore I'm looking for a way to present some static images (from a whole body (front and back), or a part of it: like feet of hands).
To get a general idea you could visit: http://www.clinicjot.com/

Can anybody advise me on which Delphi components would be suitable for this? And how to get started?

Thanks.

Hello guys,

I create a simple dll and application that I only call a method and it display " hello world ".

Now I need to create a function where I can pass a string to it and do it display my message, take a look at my code:

Dll created

library DllCrystal;

uses
  SysUtils,
  Classes,
  Dialogs;

{$R *.res}

procedure DllMessage; export;
begin
  ShowMessage('Hello world from a Delphi DLL') ;
end;
 
 exports DllMessage;

begin
end.

Select all Open in new window

My application that calls the DLL

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure DllMessage; external 'DllCrystal.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  DllMessage
end;

end.

Select all Open in new window

Now, I need a simple help from you how to do that, create a correct function and call the function in application passing the value to it.

thanks a lot
alex

I don't what happen, but not working old good SetForeground() ..

      wnd := FindWindow(nil, 'World of Warcraft');
      if wnd <> 0 then
        begin
          Memo1.Clear;
          Memo1.Lines.Add('World of Warcraft is loaded with handle : '+ inttostr(wnd));
          Form1.SendToBack; // Working
          BringWindowToTop(wnd); // not working
          SetForegroundWindow(wnd); // not working

Select all Open in new window

Advice me, what need change ...

I am a Delphi Developer and I want to use  and ActiveX component (for Compression) in my application. Will this make my program more vulnerable to Virus attacks ? My program is a backup application that uses FTP and Sockets to transfer files and messages. My program has nothing to do with a Internet browser.

We need to create a bat file for our Delphi program (Windows environment) in order to help our personnel for avoiding manual operations and possible deleting some crucial files.
I  am trying  to explain you  it simply

We have a shared folder located on Z (map network drive) with name X , so
The folder contains a subfolder with name active
•      Every person who is assigned a task (e.g a car plate) is put into active folder.
•      Every person who is free (able to be assigned a job) is outside active folder

For example, We have for the active folder the following
We only use Greek characters for the name of the files.
If a car with plate KNK1234 is assigned to ABC person then the file is
ABC_ΚΝΚ1234.ini, where ABC is the full name of the employee

What we want is
a pilot menu so every time somebody clicks the bat file open a window which says
Which person you want to release? (I will translate all the text into Greek language)
It will display the name of the employees (We can modify it , so the program will read only the names which are inside the active directory)
I will provide the name of the employees (about 6-7 persons)
Do you want to release name of employee Yes or No
Release process (Every time the work on a car is completed, the worker is automatically released from the program.)
There are, however, sometimes for some reasons (repeating a process, etc.), which should be released through a process.

The full name of the person…

Hello,

I use Delphi Seattle. I need to write an app for Android.
Please help me how to do the following task:

-the user makes photos with the phone
-in my app he needs to choose the photo(s)  (here it would be good that the directory of the camera would be the default)
-after choosing the photo(s) I need to copy it (them) to a NAS server folder.

On Windows this would be a 5 minutes task for me but I am a newbie with Android....

Thank you very much

Hello,

I have and Android multiplatform program written in Delphi Seattle.
I process a query like this (simplified version):

       While not MyQuery.Eof Do
        Begin
            MyProcedure(MyQuery.FieldByName('Field1').AsString );      
            MyQuery.Next;
        End;

Select all Open in new window

This worked well, it processed every record.

Then I changed it to this:

       While not MyQuery.Eof Do
        Begin
            MyProcedure(MyQuery.FieldByName('Field1').AsString );     
            MyQuery2.Sql.Text := 'Insert into ....';
            MyQuery2.Execute;
            MyQuery.Next;
        End;

Select all Open in new window

After this, only the first record was processed! The same code in Vcl (Windows) works perfectly.

Then I tried with a thread:

       While not MyQuery.Eof Do
        Begin
            MyProcedure(MyQuery.FieldByName('Field1').AsString );     
           MyQuery2.Sql.Text := 'Insert into ....';

           T := TTask.Run (
           procedure
            begin
              MyQuery2.Execute;
            end);

            MyQuery.Next;
        End;

Select all Open in new window

After this, it processed again all the records but the MyQuery2 insert actually didn't happen.

Then I tried "MyMemo.Lines.Add( 'xxx'); instead of MyQuery2 and again it processed the first record only:

       While not MyQuery.Eof Do
        Begin
            MyProcedure(MyQuery.FieldByName('Field1').AsString );      
            MyMemo.Lines.Add( 'xxx');
            MyQuery.Next;
        End;

Select all Open in new window

What is weird for me that it seems to me that sometimes Android doesn't process the commands sequentially.
What can I do? Is there a "rule book" when Android decides when not to "take care" of my next command line?

Thank you very much.

I have a C++ builder code snippet below which I wish to use to display the cell values in a FMX TGrid component
The code gets called but the cell content is not displayed.
I suspect that this may be due to the TFillTextFlags not being initialised ? how do I do this or otherwise get the code to work ?
Also, how would I set the colour of the text being displayed by the fillText function ?

Thanks,

Roger

void __fastcall TForm1::Grid1DrawColumnCell(TObject *Sender, TCanvas * const Canvas,
		  TColumn * const Column, const TRectF &Bounds, const int Row,
		  const TValue &Value, const TGridDrawStates State)
{
	TValue v = Value;
	UnicodeString u = v.AsString();
	TFillTextFlags flags;
	Fmx::Types::TTextAlign ATextAlign;

	Canvas->Clear(claWhite);
	Canvas->FillText(Bounds,u,false,1,flags,Fmx::Types::TTextAlign(0x0));
}

Select all Open in new window

I currently have a program that downloads a file from my VPS and extracts it. I want to make it download straight from the original website but it doesn't want to work. I want to make it download this link: https://bintray.com/oxidemod/builds/download_file?file_path=Oxide-Rust.zip instead of this: http://41.185.91.51/RSM/Oxide-Rust.zip

I'm using Rad Studio 10.2

I did find this post but I'm struggling to add it to my current project: https://www.experts-exchange.com/questions/23286908/Downloaded-files-using-TIdHTTP-INDY-10.html

Here is my current project code:

unit uOxideModInstaller;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ComCtrls,
  Vcl.StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, System.Zip;

type

  TDownload = class;

  Tfrmoxidemodinstaller = class(TForm)
    lbl1: TLabel;
    pb1: TProgressBar;
    btn1: TButton;
    btn2: TButton;
    lblstatus: TLabel;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TDownload = class(TThread)
  private
    httpclient: TIdHTTP;
    url: string;
    filename: string;
    maxprogressbar: integer;
    progressbarstatus: integer;
    procedure ExtractZip(ZipFile: string; ExtractPath: string);
    procedure idhttp1Work(ASender: TObject;

Select all Open in new window

…