You are not logged in. Please login or register.
My Visual Database → Posts by prahousefamily
MySQL 8.0 supports a new authentication based on improved, stronger SHA256-based password methods.
Unfortunately, MVD does not support new authentication, and FreeDB does not support legacy authentication.
How To Fix Error Or Custom Script In MVD ?
sql.freedb.tech mysql 8.0 online free service and can connect remote by client DBeaver,HeidiSQL
Link https://freedb.tech/
but MVD Connect error
#80044 Client does not support authentication protocol requested by server; consider upgrading MySQL client.
How To Connect ?
MVD ERROR
IF Use DBeaver OK
Hi,
Why are you using ExtractFileName(FileName).
You are extracting the filename without the path.
In this case, the program tries to find it in its directory, but it is not there.
You need to specify the full name (path + name).And with quotation marks in the send request, be more careful.
I try Full path+name Result Error {"status":400,"message":"Invalid image."} How To Edit Script ?
'----AAA'+#13#10+
'Content-Disposition: form-data; name="message"'+#13#10+#13#10+
#13#10+'['+FormatDateTime('yyyy-mm-dd hh:nn:zz', Now)+' : Test-MVD-API'+']'+#13#10+
'----AAA'+#13#10+
'Content-Disposition: form-data; name="imageFile"; filename="C:\Pic\pas.png"'#13#10 +
'Content-Type: image/png'+#13#10+#13#10+
#13#10+'----AAA--'+#13#10hi sparrow
1. Try use Postman result OK Send message and image Correct
{"status":200,"message":"ok"}
2. Try use MVD use WinHttp.WinHttpRequest.5.1 + multipart/form-data; boundary=--AAA + message OK Send message Correct
{"status":200,"message":"ok"}
mvd code
var
WinHttpReq : Variant;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
url : String ;
token : String ;
FileName : String;
begin
FileName := 'C:\Pic\pas.png' ;
token := 'xxxxxxxxxx' ;
WinHttpReq.Open('POST','https://notify-api.line.me/api/notify', false);
WinHttpReq.SetRequestHeader('Authorization','Bearer '+token) ;
WinHttpReq.SetRequestHeader('Content-Type', 'multipart/form-data; boundary=--AAA');
Try
WinHttpReq.Send(
'----AAA'+#13#10+
'Content-Disposition: form-data; name="message"'+#13#10+#13#10+
#13#10+'['+FormatDateTime('yyyy-mm-dd hh:nn:zz', Now)+' : Test-MVD-API'+']'+#13#10+
#13#10+'----AAA--'+#13#10);
Form1.Memo1.Lines.Add( WinHttpReq.Responsetext );
Except
Showmessage(ExceptionMessage) ;
End;
end;
begin
WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
end.3. Try use MVD use WinHttp.WinHttpRequest.5.1 + multipart/form-data; boundary=--AAA + message + image = Error
Help me Please ?
{"status":400,"message":"Invalid image."}mvd code
var
WinHttpReq : Variant;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
url : String ;
token : String ;
FileName : String;
begin
FileName := 'C:\Pic\pas.png' ;
token := 'xxxxxxxxxx' ;
WinHttpReq.Open('POST','https://notify-api.line.me/api/notify', false);
WinHttpReq.SetRequestHeader('Authorization','Bearer '+token) ;
WinHttpReq.SetRequestHeader('Content-Type', 'multipart/form-data; boundary=--AAA');
Try
WinHttpReq.Send(
'----AAA'+#13#10+
'Content-Disposition: form-data; name="message"'+#13#10+#13#10+
#13#10+'['+FormatDateTime('yyyy-mm-dd hh:nn:zz', Now)+' : Test-MVD-API'+']'+#13#10+
'----AAA'+#13#10+
'Content-Disposition: form-data; name="imageFile"; filename="'+ ExtractFileName(FileName) +'"'#13#10 +
'Content-Type: image/png'+#13#10+#13#10+
#13#10+'----AAA--'+#13#10);
Form1.Memo1.Lines.Add( WinHttpReq.Responsetext );
Except
Showmessage(ExceptionMessage) ;
End;
end;
begin
WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
end.In Postman test API post method Line Notify
text message and upload image
result
{"status":200,"message":"ok"}
Postman Code HTTP
POST /api/notify HTTP/1.1
Host: notify-api.line.me
Content-Type: multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW
Authorization: Bearer 123456789
Content-Length: 296
------WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="message"
test
------WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="imageFile"; filename="/C:/Pic/D20230524T092936.png"
Content-Type: image/png
(data)
------WebKitFormBoundary7MA4YWxkTrZu0gW--Postman Code curl
curl --location '[url]https://notify-api.line.me/api/notify[/url]' \
--header 'Content-Type: application/x-www-form-urlencoded' \
--header 'Authorization: Bearer 123456789' \
--form 'message="test"' \
--form 'imageFile=@"/C:/Pic/D20230524T092936.png"'IN MVD I'm Try use method "WinHttp.WinHttpRequest.5.1" Post And Upload Image File
IF Sendy Message Only It "OK"
but
IF Send Message + Upload Image Result Error
How To Edit Script ? Help Me Please
MyScript In MVD
var
WinHttpReq : Variant;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
url : String;
imageFile : String ;
token : String ;
body : Tstringlist ;
begin
body := Tstringlist.create ;
token := '123456789' ;
imageFile := 'imageFile=@"/C:/Pic/D20230524T092936.png"';
url := 'https://notify-api.line.me/api/notify' ;
WinHttpReq.Open('POST',url, False);
WinHttpReq.SetRequestHeader('ContentEncoding','UTF-8');
WinHttpReq.SetRequestHeader('Content-Type','application/x-www-form-urlencoded') ;
WinHttpReq.SetRequestHeader('Authorization','Bearer '+token) ;
Try
WinHttpReq.send('message="test"'+'\'+'imageFile=@"/C:/Pic/D20230524T092936.png"');
ShowMessage(WinHttpReq.ResponseText);
Except
Showmessage(ExceptionMessage) ;
End;
body.Free ;
end;
begin
WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
end.In
How to Show list scanner device and read jpg from scanner and show all image & save in project MVD
----------
Note
in mvd have Tprinter but not have Scanner Or Fax
windows 10 have "Windows Fax and Scan" How Use command line in MVD ?
In Project Use Function
Form1.TableGrid1.ExportToExcel(savefilepathname,False,True);It Error
How To Fix Error
PC Spec
Windows 10 Home 64 Bit
Ram 8 GB
SSD
I Try Create Toolbar and Toolbutton By Array Of TToolbutton
----
Create ToolBar OK
Create TToolbutton OK
But Not Show Caption In TToolbutton
How to Show Caption In Toolbutton ?
var
toolbar : Ttoolbar ;
toolbar_list : array of TToolbutton ;
i : Integer ;
begin
toolbar := Ttoolbar.Create(Form1) ;
toolbar.Parent := Form1.Panel1 ;
toolbar.showcaptions := true;
toolbar.Autosize := True ;
toolbar_list := ['AAA','BBB','CCC'] ;
For i := Length(toolbar_list) - 1 DownTo 0 DO
Begin
toolbar_list[i] := ttoolbutton.create(Form1) ;
toolbar_list[i].parent := toolbar;
toolbar_list[i].Autosize := True ;
toolbar_list[i].width := 100 ;
toolbar_list[i].caption := toolbar_list[i].Name ;
End;
end.
IN MVD project i try write method Post,GET than standard function
WinHttpReq : Variant;
WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
Because in MVD standard function haven't this or unable to improve further setting
In Windows 10 It OK Not Error
But Windows 7 and Show Popup This
OLE error 80020009:send : Exception occurred
Source :: WinHttp.WinHttpRequest
Description :: An error in secure channel supportHow To Fix problem ???
I try input string in memo and check AllowHTMLTags = True
but tag <P>
<p>This is some text in a paragraph.</p> not support
how to Fix ???
MVD Compile SQLite in Version
sqlite_version() = 3.8.3
sqlite_source_id() = 2014-02-03 14:04:11 6c643e45c274e755dc5a1a65673df79261c774beHow to Upgrade Engine SQlite in MVD To Current Version Up To Date (Version 3.39.3 (2022-09-05) ) At Compile Project ?
Because SQLite New Version Support New Function and More ...
Hi all,
In memory ) of the forgotten Regular Expression (TRegExp) is dedicated.
Code modified without agreement but simplified.
Thank You sparrow Best Example TRegExp
Thank sparrow For Best Example Good Code By Use Tregexp
Thank You Very Much pavlenko.vladimir.v For Link
I try script but error not have class or component in MVD
========================================
vovka3003 give script It Good but result ➝ JsonString
example
"app_name": "Test"
Scritp By vovka3003 result = "Test"
I don't know what it's called. Name Or KEY OR Field Name ..... But I will input number index ➝ result ➝ xxx
example
"app_name": "Test"
input number 0
result = "app_name"
or Reverse I will input String Field Name For Find Index ➝ result ➝ index number
example
"app_name": "Test"
input String "app_name"
result = 0
Help me Please vovka3003 or pavlenko.vladimir.v ! Everybody
Thank You Again
Thank You vovka3003 For Code Example Use 'javascrip' Method
But not
.....
i will input integer [0] result String ✔️"app_name" Not ❌ "Test"
i will input integer [1] result String ✔️"app_date" Not ❌ "2022-01-01"
i will input integer [2] result String ✔️"app_date" Not ❌ "12:30:40t"
OR
i will input string ['app_name'] result Integer ✔️ 0
i will input string ['app_date'] result Integer ✔️1
i will input string ['app_time'] result Integer ✔️2How To use Class Or Method result ???
Thank You StateOne For Code But It Failed
----------
After I try Fix Code but incomplete, missing some value
I want results like this
result size = 3
index = 0, name = app_name, value = test
index = 1, name = app_date, value = 2022-01-01
index = 2, name = app_time, value = 12:30:40How To Fix IT Show Name Or Add Class Component ??? Help Me Please !
Code How To Fix ???
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
sl:TStringList;
jDataStream: TJSONObject;
jObject: TJSONObject;
i : int;
appindex,appname,appvalue:String;
begin
sl:=TStringList.Create;
sl.LoadFromFile(ExtractFilePath(Application.ExeName)+'\json.txt');
jDataStream := nil;
jDataStream := TJSONObject(TJSONObject.ParseJSONValue(sl.Text));
jObject := TJSONObject(jDataStream.GetPairByName('result').JsonValue);
Form1.Memo1.Text:=sl.text;
Form1.Memo2.Text:=''; //clear
if jDataStream <> nil then
Form1.Memo2.Lines.Add('result size ='+ IntToStr(jObject.Size)) ;
begin
For i := 0 To jObject.Size -1 Do
Begin
appindex := 'index = '+IntToStr(i);
appname := 'name = ' ;
appvalue := 'value = '+ TJSONString(jObject.GetPairByIndex(i).JsonValue).value ;
Form1.Memo2.Lines.Add(appindex+', '+appname+', '+appvalue) ;
End;
end;
sl.free
end ;
begin
end.if have json string
{
"result": {
"app_name": "Test",
"app_date": "2022-01-01",
"app_time": "12:30:40"
}
}and to result to Form1.memo1.Lines.Add();
result size = 3
index = 0, name = app_name, value = test
index = 1, name = app_date, value = 2022-01-01
index = 2, name = app_time, value = 12:30:40How to Edit Script
IN MVD have class
IdHTTP.Post();But
IdHTTP.Get(); have not
if use IdHTTP.Get(); and add custom header
'Authorization: Bearer How to use or Edit
Help Me please ?
How To Read JSON to Table? Help Me Please !
I have tried to write using
jsonobject
jsonarray
in MVD but don't know how to write
{
"fruit": [
{
"id": "1",
"descr": [
{
"name": "cherry",
"color": "red"
},
{
"name": "orange",
"color": "orange"
},
{
"name": "banana",
"color": "yellow"
},
{
"name": "lemon",
"color": "green"
}
]
}
]
}I
How to change value display boolean type in tablegrid
from combobox Yes/No
to checkbox or change "aaa","bbb" ? help me please
How can use Max Min Average in Array ?
var
n: array [1..10] of real;
Min(n) = 1
Max(n) = 10
Average(n) = 5.5
Please give an example ?
I Try Postman & Line Client PC Desktop Version OK The language display is correct.
How To Fix In MVD ???
Postman cUrl
curl --location --request POST 'https://notify-api.line.me/api/notify' \
--header 'Content-Type: application/x-www-form-urlencoded' \
--header 'Authorization: Bearer xxxxxxxxxxxxxxxxxxxxxxxxx' \
--data-urlencode 'message=Ваши вопросы / предложения на русском языке'I Try use mvd idhttp for test api post requset
From Example Автоматическое подставление реквизитов организаций
link http://myvisualdatabase.com/forum/viewtopic.php?id=5751
OK Can use send post request Not Error Good Job
But body Or message Not Support support unicode ,UTF-8
'Ваши вопросы / предложения на русском языке' >> Show >> ' ???? ??????? / ??????????? ?? ??????? ?????'
How To Fix ???
Help Me please
How To Disable/Enable RightClick Popup On TableGrid ?
My Visual Database → Posts by prahousefamily
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi