[Delphi] Jakim cudem Enter ?

0

Witam, chciałem sobie przerobić komponent mftp (słuzy do pobsługi połaczeń FTP) aby podczas wyświetlania kolejnych informacji niedodawał ENTERA po każdej linii co wygląda tak:

REST 0

350 Restarting at 0. Send STORE or RETRIEVE to initiate transfer.

PWD

257 "/" is current directory.

Logowanie poprawne

NOOP

200 NOOP command successful.

A ja chciałbnym by było jedno pod drugim. Nietrudno było wpaśc że problem siedzi w tym iz programisci umiescili gdzies sztuczne Entery - #13 - ale pomimo usuniecia wszystkich znaków #13 - tylko czesciowo pokazuje sie bez - przed niektórymi liniami nadal jest ENTER. Ktos wie może jak inaczej mozna uzyskac taki Enter, albo może ktoś bawił sie tym komponentem lub mógłby pomóc laikowi (czy. mnie) go przerobić... Z góry THX za wszelką pomoc.

PS.
Komponent jakby co moge podesłac.

0

W grę może wchodzić #10

0

Hmm ale teraz będe miał problem, aże niedawno ort! przygoode z Delphi to prosze o pomoc. Otóż wydaje mi sie że procedura odpowiedzialna za te entery znajduje sie tu:

procedure TMFtp.Proceed;
var data: String;
begin
   data := Line + #10#13;

   DoFtpInfo(ftpTraceOut, data);
   while data <> '' do
   begin
      ProcessMessages;
      Delete(data, 1, SendBuf(PChar(@data[1]), Length(data)));
      if (CheckError) or (Aborted) or (not Connected) then
      begin
         ReadyCWD := True;
         Exit;
      end;
   end;

   NextP := P;
end;

Jednak potem komponent mi sie wywali - w sensie kompiluje sie ale nie działa bo zatrzymuje sie na jednym poleceniu podczas łączenia i ani rusz.

Jeśli mógłby sie ktoś przyjrzec calej skłądni kodu byłbym niezmiernie wdzięczny.

1 użytkowników online, w tym zalogowanych: 0, gości: 1