Get files in Web directory and show thumbnails

WEB TMS WEB Core
26

Yes. As usual not understanding the concepts.....

Got this from a guy in the Facebook groups.

procedure TForm1.WebButton2Click(Sender: TObject);
var
i: integer;
json: TJSON;
jarry: TJSONArray;
jobject: TJSONObject;
begin
json := TJSON.Create;
try
jarray := TJSONArray(json.Parse('[{"Picture":"UPVC1.jpg"},{"Picture":"batteries.jpg"},{"Picture":"DewaltOrbitalSander.jpg"}]'));
for i := 0 to jarray.Count - 1 do
begin
jobject := TJSONObject(jarray.Items[i]);
WebMemo1.Lines.Add (jobject.GetJSONValue('Picture'));
end; // for i
finally
json.Free;
end;

end;