Search options (Page 1 of 15)

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
WinHttpReq  : Variant;
url : String ;
body : TStringlist;
begin
    Try
        WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
        url := Form1.Edit6.Text ;
        body := Tstringlist.create ;
        body.add('{"chatId": "'+Form1.Edit4.Text+'","message": "'+Form1.Edit5.Text+'"}');
        WinHttpReq.Open('Post',url,False);
        WinHttpReq.SetRequestHeader('Content-Type', 'application/json');
        WinHttpReq.Send(body.Text);
        Form1.Edit7.Text := WinHttpReq.StatusText ;
        Form1.Memo1.Text := WinHttpReq.ResponseText ;
        body.Free ;
        Except
    End;
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form1.Edit6.Text :=
    Form1.Edit1.Text+'/waInstance'+Form1.Edit2.Text+'/sendMessage/'+Form1.Edit3.Text ;
end;
begin
end.

program sendMessage;

{$APPTYPE CONSOLE}

uses
System.SysUtils,
System.Classes, System.Net.HttpClient, System.Net.URLClient, System.Net.HttpClientComponent;

var
HttpClient: TNetHTTPClient;
RequestBody: TStringStream;
RequestHeaders: TNetHeaders;
Response: IHTTPResponse;
EndpointURL, ID_INSTANCE, API_TOKEN_INSTANCE: string;

begin
ID_INSTANCE := '110100001';
API_TOKEN_INSTANCE := 'd75b3a66374942c5b3c019c698abc2067e151558acbd451234';

EndpointURL := 'https://api.greenapi.com/waInstance' + ID_INSTANCE + '/sendMessage/' + API_TOKEN_INSTANCE;

HttpClient := TNetHTTPClient.Create(nil);
RequestBody := TStringStream.Create('{ "chatId": "71234567890@c.us", "message": "test" }', TEncoding.UTF8);
RequestHeaders := [
    TNetHeader.Create('Content-Type', 'application/json')
];

try
    Response := HTTPClient.Post(EndpointURL, RequestBody, nil, RequestHeaders);

    if Response.StatusCode = 200 then
    Writeln('[Response]: ' + Response.ContentAsString)
    else
    Writeln('[ERROR ' + IntToStr(Response.StatusCode) + ']:' + Response.StatusText + '' + Response.ContentAsString);

    readln;
except
    on E: Exception do
    Writeln(E.ClassName, ': ', E.Message);
end;

HttpClient.Free;
RequestBody.Free;

end.

var
WinHttpReq : Variant;
procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
url : string ;
ResponseText: string;
sl : TStringlist ;
Begin

    url := Form1.Edit4.Text ;
    Form1.Memo1.Lines.Clear ;
    WinHttpReq.SetTimeouts(10000, 10000, 10000, 10000);
    WinHttpReq.Open('GET',url, True);
    Try
        WinHttpReq.Send;
        WinHttpReq.WaitForResponse ;
        ResponseText := WinHttpReq.ResponseText;
        sl := TStringlist.Create ;
        sl.Text :=  ResponseText ;
        Form1.Memo1.Text := sl.text ;
        sl.Free;
        Except
        Form1.Memo1.Clear ;
        Showmessage('Error');
    End;
end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
url : string ;
gid : String ;
tqx : String ;
tq  : String ;
address : String ;
begin
    url :=  Form1.Edit1.Text ;
    gid :=  Form1.Edit2.Text ;
    tqx :=  Form1.ComboBox1.Text ;
    tq  :=  Form1.Edit3.Text ;
    address :=
    'https://docs.google.com/spreadsheets/d/'+url+
    '/gviz/tq?tqx='+tqx+
    '&gid='+gid+
    '&tq='+tq ;
    Form1.Edit4.Text :=  address ;
end;
begin
    WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
    Form1.ComboBox1.Items.Add('out:html');
    Form1.ComboBox1.Items.Add('out:csv');
    Form1.ComboBox1.Items.Add('out:tsv');
    Form1.ComboBox1.Items.Add('out:json');
    Form1.ComboBox1.ItemIndex:= 0;
end.

var
    WinHttpReq : Variant;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    i : Integer ;
    url : String ;
    StartTime, EndTime: Tdatetime ;
    ResponseText: string;
    ResponseSize: Integer;
    ResponseStatus : Integer ;
    Duration: Double;
begin
    Form1.TableGrid1.Columns[5].Alignment :=  taRightJustify ;
    Form1.TableGrid1.Columns[6].Alignment :=  taRightJustify ;
    For i := 0 To Form1.TableGrid1.RowCount - 1 Do
    Begin                                          
        Form1.TableGrid1.ScrollToRow(i);
        Form1.TableGrid1.SelectedRow := i ;
        Form1.TableGrid1.Cells[7,i] := 'Working' ;
        StartTime := NOW;
        url := Form1.TableGrid1.Cells[1,i] ;
        WinHttpReq.Open('GET',url, False);
        WinHttpReq.SetRequestHeader('ContentEncoding','UTF-8');
        WinHttpReq.SetTimeouts(10000, 10000, 10000, 10000);
        Try
            WinHttpReq.Send;
            WinHttpReq.WaitForResponse ;
            ResponseText := WinHttpReq.ResponseText;
            ResponseSize := Length(ResponseText);
            ResponseStatus := WinHttpReq.Status ;
            EndTime := NOW ;
            Duration := (EndTime - StartTime) * 86400000;
            Form1.TableGrid1.Cells[2,i] := IntToStr(ResponseStatus);
            Form1.TableGrid1.Cells[3,i] := FormatDateTime('yyyy-mm-dd hh:mm:ss.zzz',Starttime);
            Form1.TableGrid1.Cells[4,i] := FormatDateTime('yyyy-mm-dd hh:mm:ss.zzz',Endtime);
            Form1.TableGrid1.Cells[5,i] := FormatFloat('0.00', Duration)+' ms' ;
            Form1.TableGrid1.Cells[6,i] := IntToStr(ResponseSize)+' bytes' ;
            Form1.TableGrid1.Cells[7,i] := 'OK' ;
            Except
            Form1.TableGrid1.Cells[7,i] := 'Error' ;
        End;
        Application.ProcessMessages ;
    End;
    Showmessage('Finnish!');
end;
begin
    WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
end.

| id   | url                                  |
| ---- | ------------------------------------ |
| 1    | https://drive.google.com             |
| 2    | https://www.dropbox.com              |
| 3    | https://onedrive.live.com            |
| 4    | https://mega.nz                      |
| 5    | https://www.pcloud.com               |
| 6    | https://icedrive.net                 |
| 7    | https://www.mediafire.com            |
| 8    | https://www.box.com                  |
| 9    | https://degoo.com                    |
| 10   | https://www.sync.com                 |
| 11   | https://www.infomaniak.com/en/kdrive |
| 12   | https://disk.yandex.com              |
| 13   | https://koofr.eu                     |
| 14   | https://internxt.com                 |
| 15   | https://www.zippyshare.com           |
| 16   | https://upload.ee                    |
| 17   | https://www.filefactory.com          |
| 18   | https://rapidgator.net               |
| 19   | https://uptobox.com                  |
| 20   | https://www.4shared.com              |
| 21   | https://www.sendspace.com            |
| 22   | https://www.terabox.com              |
| 23   | https://wetransfer.com               |
| 24   | https://anonfiles.com                |
| 25   | https://file.io                      |
| 26   | https://uploadfiles.io               |
| 27   | http://send.firefox.com              |
| 28   | https://transferxl.com               |
| 29   | https://fromsmash.com                |
| 30   | https://gofile.io                    |
| 31   | https://filetransfer.io              |
| 32   | https://www.jetdrop.com              |
| 33   | https://tresorit.com/send            |
| 34   | https://wormhole.app                 |
| 35   | https://send-anywhere.com            |
| 36   | https://sharedrop.io                 |
| 37   | https://volafile.org                 |
| 38   | https://catbox.moe                   |
| 39   | https://bayfiles.com                 |
| 40   | https://pixeldrain.com               |
| 41   | https://ufile.io                     |
| 42   | https://send.cm                      |
| 43   | https://onsen.io                     |
| 44   | https://www.swisstransfer.com        |
| 45   | https://www.justbeamit.com           |
| 46   | https://www.filemail.com             |
| 47   | https://www.jumbomail.me             |
| 48   | https://dropmefiles.com              |
| 49   | https://sendgb.com                   |
| 50   | https://www.filedropper.com          |
| 51   | https://tinyupload.com               |

var
  WinHttpReq  : Variant;
  url : String ;
begin
  WinHttpReq  := CreateOleObject('WinHttp.WinHttpRequest.5.1');
  url := 'https://checkupdate-xi3tiqz4rq-uc.a.run.app/?prg=sangkapp' ;
  WinHttpReq.open('GET',url,false);
  WinHttpReq.SetRequestHeader('Connection','keep-alive');
  WinHttpReq.SetRequestHeader('Content-Type', 'application/json');
  WinHttpReq.SetRequestHeader('ContentEncoding','UTF-8');
  WinHttpReq.send;
  Showmessage( 'Status = '+ #13#10 +IntToStr(WinHttpReq.Status) + #13#10 +'ResponseText ='+ #13#10 + WinHttpReq.ResponseText) ;
end;

IF WinHttpReq.Status = 200 
Then 
Showmessage(WinHttpReq.ResponseText)
Else Showmessage('Error') ;

procedure frmEmployee_OnClose (Sender: string; Action: string);
var     i,c: integer;
begin
    c := frmEmployee.ComponentCount-1;
    for i := 0 to c do
    begin
        if frmEmployee.Components[i] is TdbEdit then TdbEdit(frmEmployee.Components[i]).Clear;       //  Dans le cas d'un TEdit
        if frmEmployee.Components[i] is TdbMemo then TdbMemo(frmEmployee.Components[i]).Clear;       //  Dans le cas d'un TMemo
    end;
end;
JB

✓ Check IF TdbEdit >>> Clear Thank you JB

Form1.Edit1.Text
Form1.Edit2.Clear // Because (1. TdbEdit)+ (2. Component_Name MOD 2 = 0)
Form1.Edit3.Text
Form1.Edit4.Clear // Because (1. TdbEdit)+ (2. Component_Name MOD 2 = 0)