Topic: функция s := HTTPGet('url страницы');
Друзья всем привет!!!
Попытался самостоятельно разобраться с функция s := HTTPGet('url страницы');,
но как говориться не хватает знаний...
=====================================================================================
УМЫСЕЛ конечного результата:
по клику Button1.....
открываем OpenDialog...выбрав документ...импортируем его в:
ТАБЛИЦУ "ААА" с полем "Ticket"(текст), "Open_Time"(дата/время), "id_Type"(словарь), "Size"(вещ.число)
P.S. документ прилагается...
======================================================================================
получить готовый результат...был бы конечно подарком судьбы (на форуме всего один пример
у mathmathou..."http://myvisualdatabase.com/forum/viewtopic.php?id=1851",
но как я понимаю не всё так просто и быстро...
ИСХОДЯ ИЗ ЭТОГО ПРОШУ ПОМОЩИ...как минимум:
вытащить исходный код документа в Memo1...
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
OpenDialog: TOpenDialog;
s,n :string;
begin
OpenDialog := TOpenDialog.Create(Form1);
if OpenDialog.Execute then
begin
n:= OpenDialog.FileName; //узнать адресс папки
s :=HTTPGet(n);
Form1.Memo1.Text:= (s);
end;
end;
Проблема в том, что файл только открывается Yandex Browser, а находиться может на диске "С", в папке MVD или на флешке...
т.е.подключения интернета нет...вобщем выдаёт ошибку: "Unknown Protocol"
Подскажите где ошибка в скрипте????????????????????????????????????
С Уважением и Благодарностью Роман!!!