такие извраты нужны, чтобы передать и получить строку?
proc := TProcess.Create(nil);
proc.Executable := MYSQL_EXE;
proc.Parameters.Add('-D'+ PsData.DatabaseName);
proc.Options := [poUsePipes, poStderrToOutPut];
proc.ShowWindow := swoHIDE;
TRY
proc.Execute;
// proc.Input.WriteAnsiString(sData); - !! не работает !!
proc.Input.Write(sData[1], Length(sData));
proc.CloseInput;
proc.WaitOnExit;
// proc.Output.ReadAnsiString - !! не работает !!
sl := TStringList.Create;
sl.LoadFromStream(proc.Output);
sOut:= sl.Text;
FreeObject(sl);
А зачем ты так написал?
как? я вчера пол-вечера потратил на разнообразные варианты, сработало только вот так
я работал, кину в личку пример проекта, если надо
Стикер
Обсуждают сегодня