AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Clever Internet Suite HTTPS Problem

Clever Internet Suite HTTPS Problem

Ein Thema von IMPEGA · begonnen am 24. Apr 2015 · letzter Beitrag vom 24. Apr 2015
Antwort Antwort
Seite 1 von 2  1 2   
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
73 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Clever Internet Suite HTTPS Problem

  Alt 24. Apr 2015, 10:12
Hi.
Ich arbeite mit Delphi7.

Ich habe die Clever Internet Suite entdeckt.
So weit gefällt mir die Suite sehr gut. Ich komme allerdings bei HTTPS nicht weiter.
Ich versuche so gut wie möglich das Problem zu schildern.

Ich erstelle ganz normal eine VCL Anwendung. Auf der Form platziere ich clHTTP1.
Ich setze die Eigenschaften
- UseTLS auf ctAutomatic
- LSFlags tfUseTLS auf Ttrue

Nun lade ich eine HTTPS Seite und bekomme mein Response. So wie es sein sollte.
zB. diese Seite https://proxy.org/cgi_proxies.shtml

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  Response: TStrings;
begin
  Memo1.Lines.Clear();
  Response := TStringList.Create();
    try
      clHttp1.Get(edtUrl.Text, Response);
        if SameText('UTF-8', clHttp1.ResponseHeader.CharSet) then
           Memo1.Lines.Text := TclTranslator.TranslateFromUtf8(Response.Text)
        else
          Memo1.Lines.Assign(Response);
    finally
      Response.Free();
    end;
end

Nun zu meinem Problem.
Ich versuche es in eine Unit auszulagern und das Gsanze zur Laufzeit zu erstellen.
Hier komme mit mit den Flags nicht klar.

Hier das relevante Teil von der Unit.
Delphi-Quellcode:
unit cIHTTP_GET_POST;

interface

uses
  Windows, SysUtils, Classes, clTcpClient, clHttp, clHtmlParser,
  clHttpRequest, ShellAPI, clSspiTls;

  function clHTTP_GET(const URL: string; TimeOut: Integer): UTF8String;

implementation

uses Splitter;

function clHTTP_GET(const URL: string; TimeOut: Integer): UTF8String;
var
  Response : TStrings;
  clHttp1 : TclHttp;
begin
  Response := TStringList.Create();
  clHttp1 := TclHttp.Create(nil);
  clHttp1.TimeOut := TimeOut * 1000;
  clHttp1.UseTLS := ctAutomatic;

  clHttp1.TLSFlags := tfUseTLS; //Das ist der Fehler. Hiet müsste tfUseTLS auf True gesetzt werden.

    try
      clHttp1.Get(URL, Response);
      Result := Response.Text;
    finally
      FreeAndNil(Response);
      FreeAndNil(clHttp1);
    end;
end;

end.
Ich habe die ganze Hilfe durchstöbert und auch ordentlich gegoogelt.
Leider finde ich nichts zu dem Thema.
Es sollte später aus einem Thread heraus abgerufen werden deshalb sollte es zur Lsufzeit erstellt werden.
Meine versuche sind leider gescheitert.
Vielleicht hat Jemand ein Rat für mich.

EDIT:
Code korrigiert. Nun funktioniert es.

Geändert von IMPEGA (24. Apr 2015 um 11:40 Uhr)
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.657 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Clever Internet Suite HTTPS Problem

  Alt 24. Apr 2015, 10:17
.. vielleicht, da es eine Option ist.
clHttp1.TLSFlags := [tfUseTLS]; Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
73 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

AW: Clever Internet Suite HTTPS Problem

  Alt 24. Apr 2015, 10:29
Nein,so einfach ist es nicht.
Natürlich habe ich schon einiges probiert bevor ich gepostet habe.
Das ist die Meldung auf deine Zeile.

[Fehler] main.pas(52): Undefinierter Bezeichner: 'tfUseTLS'
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.657 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Clever Internet Suite HTTPS Problem

  Alt 24. Apr 2015, 10:47
neuer Versuch..

vielleicht musst Du noch die Unit clTlsSocket einbinden.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
73 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

AW: Clever Internet Suite HTTPS Problem

  Alt 24. Apr 2015, 10:58
Nein leider bringt es auch nichts.
Ich habe auch schon damit versucht
clCertificate, clCertificateStore, certfrm;

Leider bringt es nichts.
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
2.885 Beiträge
 
Delphi 2009 Professional
 
#6

AW: Clever Internet Suite HTTPS Problem

  Alt 24. Apr 2015, 11:09
Wenn eine Komponente zur Design-Zeit auf das Formular gelegt wird werden eine oder mehrere Units der uses-Klausel hinzugefügt. Prüfe daher einfach mal, welche Units aus dem funktionierenden Formular noch nicht in der Uses-Klauses der neuen Unit enthalten sind, und füge sie hinzu.

Die Chance, das das funktioniert, liegt bei 100 Prozent. Mindestens
Michael Justin
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
73 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#7

AW: Clever Internet Suite HTTPS Problem

  Alt 24. Apr 2015, 11:18
Das war das erste was ich versucht habe.
ich habe parallel eine Form erstellt. Die Komponente auf die Form gelegt.
Die Funktion in die Form 2 hinzugefügt und verlinkt.
In der Form2 die Option von clHTTP1 TLSFlags tfUseTLS auf True gesetzt.
So funktioniert es. Nun nehme ich die ganze Deklaration von der Form2 und füge es der Unit hinzu.

Nun taucht der Fehler auf.
Damit habe ich dein Vorschlag in jeder Variante ausprobiert.
Es bringt nichts.
Zitat:
Die Chance, das das funktioniert, liegt bei 100 Prozent. Mindestens
Das wurde widerlegt.

EDIT:
Ich habe es gefunden.
Danke für die Unterstützung.

So ein Dreck. Nirgendwo kann man es nachlesen.

Es muss clSspiTls deklariert werden.
Nun läuft es.

Geändert von IMPEGA (24. Apr 2015 um 11:39 Uhr) Grund: Gelöst
  Mit Zitat antworten Zitat
Bentissimo

Registriert seit: 25. Apr 2006
Ort: Friedenfels
82 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: Clever Internet Suite HTTPS Problem

  Alt 24. Apr 2015, 11:38
Ich schätze, dass die Typ- oder Konstantendefinition für tfUseTLS in einer Unit versteckt ist, die nicht automatisch mit dem Hinzufügen der Komponente eingefügt wird.

Daher würde ich als erstes prüfen welche Unit dies tatsächlich ist.
Stephan Schmahl
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
73 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#9

AW: Clever Internet Suite HTTPS Problem

  Alt 24. Apr 2015, 11:56
Du hast meine Antwort übersehen.

Ich habe es gefunden.

Problem gelöst.
  Mit Zitat antworten Zitat
Bentissimo

Registriert seit: 25. Apr 2006
Ort: Friedenfels
82 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: Clever Internet Suite HTTPS Problem

  Alt 24. Apr 2015, 12:01
Dein Edit geschah einer Minute nach meiner Antwort.

Hauptsache gelöst!
Stephan Schmahl
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf