Программа на дельфе, в ней ведется учет товара. дописал возможность выгрузки базы в XLS файл со структурой для импорта в Shop script. как доделаю, выложу в свободное пользование =)
Также программа парсит гугль на изображения и автоматически делает ресайз для интернет магазина
Пост запросы формируем следующим образом:
- Авторизация и загрузка прайса:
procedure TForm1.btn4Click(Sender: TObject);
var
http:TidHttp;
CooM:TidCookieManager;
data:TStringList;
page, id, name:String;
fs:TFileStream;
i:integer;
begin
http:=TIdHTTP.Create(Self);
data :=TStringList.Create;
CooM:=TidCookieManager.Create(http);
http.AllowCookies:=true;
http.CookieManager:=CooM;
http.HandleRedirects:=true;
pnl2.Caption := 'Соединение...';
data.Add('authorize=1');
data.Add('login=admin');
data.Add('password=123');
Page:= http.Post('http://АДРЕС_МАГАЗИНА/access_admin.php?', data);
pnl2.Caption := 'Авторизация...';
if Pos('Логин / Login :',page) <> 0 then
begin
MessageDlg('Ошибка авторизации', mtInformation, [mbOK], 0);
pnl2.Caption := 'Ошибка авторизации!';
data.Free;
Coom.Free;
http.Free;
Exit;
end;
data.Clear;
pnl2.Caption := 'Загрузка прайса, пожалуста подождите...';
data.Add('dpt=catalog');
data.Add('sub=import');
data.Add('export=yes');
data.Add('type=xls');
fs := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'Prise.xls',fmCreate);
http.Post('http://АДРЕС_МАГАЗИНА/admin.php?', data, fs);
if fs.Size = 0 then
begin
MessageDlg('Ошибка загрузки файла', mtInformation, [mbOK], 0);
pnl2.Caption := 'Ошибка загрузки прайса!';
data.Free;
Coom.Free;
http.Free;
fs.Free;
Exit;
end;
fs.Free;
data.Free;
Coom.Free;
http.Free;
Таким же способом отправляем пост запрос на загрузку подготовленного прайса.
