My problem is that when I use Indy to send email using Gmail it works ok in this computer where RAD Studio is installed. But when I copy my release version to different computer where is installed Windows 10 it gives an error "SSL negotiation failed"
My code is:
lIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
lIOHandler.SSLOptions.Method := sslvTLSv1;
lIOHandler.SSLOptions.Mode := sslmClient;
strA := EditOsoite.Text;
charArray[0] := ';';
o := 0;
IdSMTP1.IOHandler := lIOHandler;
IdSMTP1.UseTLS := utUseRequireTLS;
IdSMTP1.Host := 'smtp.gmail.com'; // EditPalvelin.Text;
//IdSMTP1.Authenticate;
// IdSMTP1.UseTLS := utUseExplicitTLS;
IdSMTP1.Username := EditPalvelin.Text;
IdSMTP1.Password := EditSalasana.Text;
IdSMTP1.Port := 587;
try
try
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdMessage1.Clear;
Sleep(1000);
//IdMessage1.Free;
except on E:Exception do begin
ShowMessage('Virhe lähetettäessä');
ShowMessage('There was an error: ' + E.Message);
//StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message) ;
end;
end;
finally
if IdSMTP1.Connected then begin
IdSMTP1.Disconnect;
//IdSMTP1.Free;
//IdMessage1.Free;
end;
end;
Related
When you try to take a picture from a camera, the authentication function does not work. I read all the other posts on the subject, but without success with this device.
Indy 10.6.2.0
Uses ..., IdAuthentication, IdAuthenticationDigest;
...
addr := 'cgi-bin/snapshot.cgi?1';
myADR := 'http://87.126.245.25:8181/' + addr;
rStream := TMemoryStream.Create;
try
H1 := TIdHttp.Create();
{$IFDEF DEBUG}
idLogFile := TIdLogFile.Create( H1 );
with idLogFile do begin
Filename := IncludeTrailingPathDelimiter( ExtractFileDir( Application.ExeName ) ) + 'indy_log.txt';
Active := true;
end;
{$ENDIF}
with H1 do begin
Response.KeepAlive := true;
ReadTimeout := selCAM.Timeout;
Request.BasicAuthentication := false;
Request.Username := selCAM.User;
Request.Password := selCAM.Pass;
Request.ContentType := 'image/jpeg';
Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) Chrome/97.0.4692.71';
Request.ContentVersion := '1.0';
Request.IPVersion := Id_IPv4;
Request.Host := 'http://' + addr;
HTTPOptions := [hoInProcessAuth, hoForceEncodeParams];
OnSelectAuthorization := IdHTTP_SelectAuthorization;
OnHeadersAvailable := IdHTTP_HeadersAvailable;
OnAuthorization := IdHTTP_Authorization;
{$IFDEF DEBUG} Intercept := idLogFile; {$ENDIF}
end;
try
H1.Get( myADR, rStream); except
on E: EIdHTTPProtocolException do begin SB1.Panels[0].Text := E.Message; er := true; end;
on E: EIdException do begin SB1.Panels[0].Text := E.Message; er := true; end;
on E: Exception do begin SB1.Panels[0].Text := E.Message; er := true; end;
end;
finally
H1.Free;
FreeAndNil(rStream);
end;
It works correctly through a browser
Attach wireshark from Browser, from Indy and Indy Log:
https://1drv.ms/u/s!AubiEh1vqvRLkr01GzXCf_T0yLgmfQ?e=69dqaD
I'm facing with an issue, here is my code
constructor TORAThread.Create;
begin
inherited Create(True);
ORAFDcon_Ora := TFDConnection.Create(nil);
ORAFDPhysOracleDriverLink := TFDPhysOracleDriverLink.Create(nil);
ORAFDGUIxWaitCursor := TFDGUIxWaitCursor.Create(nil);
ORAStorPRoc := TFDStoredProc.Create(nil);
ORAFDcon_Ora.DriverName := 'ora';
ORAFDcon_Ora.LoginPrompt := False;
ORAFDcon_Ora.Params.LoadFromFile('ORAconfig.ini');
ORAFDcon_Ora.CheckConnectionDef;
ORAFDcon_Ora.ResourceOptions.AutoConnect := True;
ORAFDcon_Ora.ResourceOptions.AutoReconnect := True;
ORAFDcon_Ora.ResourceOptions.KeepConnection := True;
ORAFDcon_Ora.ResourceOptions.CmdExecMode := amNonBlocking;
procedure TORAThread.Execute;
begin
ORAFDcon_Ora.Connected := True;
while not terminated do
begin
//somejobs
end;
When I start the thread and VPN connection is not alive, my GUI freezes
Whats wrong?
Regards,
I'm sometimes getting http 402 payment required when using TidHTTP accessing the Adsweb, but it is not on all computers. The same program run on one computer fine and on another I will get the 402 error running the same statement.
CSHttp: TidHTTP;
Try
CSHttp := TidHTTP.Create(nil);
MyURL := MasterTbl.FieldByName('DatabaseUrl').AsString;
MyUrl := MyUrl + '__query?statement=select%20name,accountnum%20from%20customer%20where%20accountnum=''' + Myphone + '''&$format=json'
with CSHttp do
begin
Request.CacheControl := 'no-cache';
Request.BasicAuthentication := True;
Request.Username := MasterTbl.FieldByName('DBlogin').AsString;
Request.Password := MasterTbl.FieldByName('DBPassword').AsString;
Request.UserAgent := 'Mozilla/3.0 (compatible; Indy Library)';
end;
Try
MyResult := CShttp.Get(MyURL);
Except
on E:Exception do
Myerror := E.Message;
End;
Finally
CSHttp.Free;
end;
If I restart the ADS 11 it will sometimes fix it.
Maybe it is something do wrong in the call?
Thanks,
Kim
I wrote a program to send email in delphi xe3 , and it works fine , when I copy the program to another computer (windows 8) it works fine but on Computer (Windows 7) the stmp.send did not respond Unless I install embarcadero on it .I Think the problem is in the files libeay32.dll and ssleay32.dll
Here is the code
var
SMTP: TIdSMTP;
Email: TIdMessage;
SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
SMTP := TIdSMTP.Create(nil);
Email := TIdMessage.Create(nil);
SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
try
SSLHandler.MaxLineAction := maException;
SSLHandler.SSLOptions.Method := sslvTLSv1;
SSLHandler.SSLOptions.Mode := sslmUnassigned;
SSLHandler.SSLOptions.VerifyMode := [];
SSLHandler.SSLOptions.VerifyDepth := 0;
SMTP.IOHandler := SSLHandler;
SMTP.Host := 'smtp.gmail.com';
SMTP.Username := 'Username#gmail.com';
SMTP.UseTLS := utUseExplicitTLS;
SMTP.Port := 587;
SMTP.Password := 'Password';
SMTP.Connect;
Email.Clear;
Email.AttachmentEncoding:='MIME' ;
Email.IsEncoded := true;
Email.Charset := 'utf-8';
Email.ContentType :='multipart/alternative';
Email.Encoding := meMime;
Email.UseNowForDate := true;
Email.From.Address := 'Address' ;
Email.Recipients.EmailAddresses := 'Recipients';
Email.Subject := 'Subject';
Email.Body.Text :='Body' ;
SMTP.Send(Email);
SMTP.Disconnect;
except on E:Exception do
Button1.Caption:=E.Message;
end;
SMTP.Free;
Email.Free;
SSLHandler.Free;
end;
Any idea Thanks
The files libeay32.dll and ssleay32.dll are needed by the executable. Place them in the same folder as the executable and it should work, even when you don't install Delphi on the target computer.
How to programmatically add an application or port to Windows Firewall on Windows XP?
Try this code extracted from our open source SQlite3UI.pas unit:
function GetXPFirewall(var fwMgr, profile: OleVariant): boolean;
begin
Result := (Win32Platform=VER_PLATFORM_WIN32_NT) and
(Win32MajorVersion>5) or ((Win32MajorVersion=5) and (Win32MinorVersion>0));
if result then // need Windows XP at least
try
fwMgr := CreateOleObject('HNetCfg.FwMgr');
profile := fwMgr.LocalPolicy.CurrentProfile;
except
on E: Exception do
result := false;
end;
end;
const
NET_FW_PROFILE_DOMAIN = 0;
NET_FW_PROFILE_STANDARD = 1;
NET_FW_IP_VERSION_ANY = 2;
NET_FW_IP_PROTOCOL_UDP = 17;
NET_FW_IP_PROTOCOL_TCP = 6;
NET_FW_SCOPE_ALL = 0;
NET_FW_SCOPE_LOCAL_SUBNET = 1;
procedure AddApplicationToXPFirewall(const EntryName, ApplicationPathAndExe: string);
var fwMgr, profile, app: OleVariant;
begin
if GetXPFirewall(fwMgr,profile) then
try
if profile.FirewallEnabled then begin
app := CreateOLEObject('HNetCfg.FwAuthorizedApplication');
try
app.ProcessImageFileName := ApplicationPathAndExe;
app.Name := EntryName;
app.Scope := NET_FW_SCOPE_ALL;
app.IpVersion := NET_FW_IP_VERSION_ANY;
app.Enabled :=true;
profile.AuthorizedApplications.Add(app);
finally
app := varNull;
end;
end;
finally
profile := varNull;
fwMgr := varNull;
end;
end;
procedure AddPortToXPFirewall(const EntryName: string; PortNumber: cardinal);
var fwMgr, profile, port: OleVariant;
begin
if GetXPFirewall(fwMgr,profile) then
try
if profile.FirewallEnabled then begin
port := CreateOLEObject('HNetCfg.FWOpenPort');
port.Name := EntryName;
port.Protocol := NET_FW_IP_PROTOCOL_TCP;
port.Port := PortNumber;
port.Scope := NET_FW_SCOPE_ALL;
port.Enabled := true;
profile.GloballyOpenPorts.Add(port);
end;
finally
port := varNull;
profile := varNull;
fwMgr := varNull;
end;
end;
It will allow you to add an application or a port to the XP firewall.
Should work from Delphi 6 up to XE.
Scripting the Windows Firewall is possible, see Scripting the Windows Firewall
And code examples for example here